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EINLEITUNG 


Mut zum Spielen 


W issen ist immer noch Macht. 

Das gilt allgemein in unserem 
schnellebigen Zeitalter, ins¬ 
besondere jedoch auf dem Computer¬ 
sektor. Aus ehemaligen Freaks wer¬ 
den Profi-Programmierer, allerseits 
liebäugelt man mit dem Wechsel auf 
neue Computer der 16-Bit-Generation, 
und Basic ist als Programmiersprache 
in höheren Kreisen schon bald nicht 
mehr salonfähig. Viele sind verwirrt 
von der unheimlichen Vielfalt uncf 
Schnelligkeit, mit der die Entwicklung 
auf dem Computersektor voranschrei¬ 
tet. Nach wem soll man sich richten, 
welchen Trend verfolgen, welchen 
Computer kaufen oder welche Programmiersprache ler¬ 
nen? Aus der verwirrenden Vielfalt der Stimmen, die aus 
dem Computerwald herausschallen, kann man krampfhaft 
versuchen, sich einen Reim zu machen, man kann es aber 
auch schlicht bleibenlassen. 

Vielleicht beweist eine Anzahl von mehr als 1 Million ver¬ 
kauften C64 noch, wo eigentlich für den normalen Compu¬ 
teranwender die Rosinen auf dem Markt zu finden sind. 
Und dies betrifft sicher nicht nur Hardware und Erweiterun¬ 
gen, sondern im wesentlichen Software aller Stilrichtun¬ 
gen. Obwohl Programmieren auf dem Computer zum 
guten Ton gehört, gute Anwendungen wie Textverarbeitung 
oder Dateiverwaltung fast schon notwendiger Bestandteil 
eines Computersystems sind, wird doch eine Software- 
Sparte so schnell nicht aussterben: die Spiele. Selbst auf 
großen Computern kommt man nicht daran vorbei, auch 
einige Spiele für die gestreßten Anwender bereitzustellen. 
Denn was macht mehr Spaß, als die Sorgen des Alltags mit 
einem wirklich guten Spiel zu vergessen? Wer dies ver¬ 
neint, vergißt vielleicht die erstaunliche Anziehungskraft, 
die Spiele mit guter Grafik, gutem Sound und entprechen- 
der Spielidee auf die Käufer von Heimcomputern in aller 
Welt ausübt. Dies ist für viele der jugendlichen Freaks der 
erste Einstieg in die Welt der Bits und Bytes. Dazu kommt 
noch der erstaunliche Erfolg des Commodore 64, der von 
einer wahren Softwareflut gestützt, in den letzten Jahren 
zum meistverkauften Heimcomputer in der ganzen Welt 
avanciert ist. Keiner kann mehr an den Glanzlichtern unter 
den Computerspielen vorbeischauen. Zu blendend ist 
dabei die Qualität dieser Spiele, die oftmals zuerst und aus¬ 
schließlich für den C64 programmiert wurden. Natürlich 
werden die Renner unter den Computerspielen vom C64 
auf andere Computer übertragen. Daß der Spielemarkt ein 
durchaus respektables Geschäft verheißt, ist auch den Pro¬ 
grammierern ziemlich schnell klargeworden. Aus der An¬ 
fangszeit der Heimcomputer kennt man noch einige Spiele, 
die, wenn man sie sich heute nochmals anschaut, gerade¬ 
zu primitiv wirken. Der Anspruch der Käufer ist über die 
Jahre ständig gestiegen. Dies ist auch ein Grund dafür, daß 
die Qualität der Leserlistings, die Sie in diesem Sonderheft 



finden, heute mit einem völlig anderen 
Maßstab bemessen wird als früher. 
Auch die Programmierer aus dem 
heimischen Wohnzimmer erstellen 
immer bessere Listings auf allen Ge¬ 
bieten. Und die Leser wollen auch 
einen Einstieg in Programmiertechni¬ 
ken wie etwa Rasterinterrupt und 
Scrolling finden. Dazu sind wir als 
Fachmagazin gefordert; wir haben in 
dieser Ausgabe einen umfassenden 
Kurs über Scrolling auf mehreren Ebe¬ 
nen wie es viele vielleicht von »Sum¬ 
mergames« her kennen. Damit kann 
man lernen, Spiele zu erstellen, die 
sich hinter professionellen Produkten 
kaum verstecken müssen. Aber auch in den anderen 
Spielelistings spiegelt sich die aktuelle Entwicklung wider. 
Schnelle Grafik mit erfrischenden Farben aus dem Raster¬ 
interrupt sind gefragt. Block’n Bubble ist das beste Bei¬ 
spiel '■ ür. Ein weiterer Trend ist die Möglichkeit, mit zwei 
oder mehr Personen an einem Spiel teilzunehmen. Bei 
dem Action-Spiel Trigon darf man zum Beispiel sogar mit 
drei Personen an den Start gehen. Daß Joystick¬ 
verschleißende Spiele mit rasanter Aktion immer viel 
Zuspruch finden, muß jedoch nicht heißen, daß Strategie- 
Spiele »out« sind. Gerade Nachdenken und Überlegen 
reizt viele, die einmal beweisen möchten, daß man den 
scheinbar übermächtigen Computer-Gegner doch besie¬ 
gen kann. Der Sieg des Geistes über die Maschine ist 
sicherlich noch auf Jahre ein interessantes Thema. 
Versuchen Sie sich einmal an unserem Spiel Xiangqi, einer 
Art Schach aus dem alten China. Aber auch beim Spiel 
Connect 4 wird Ihnen der Kopf heiß werden, wenn Sie 
gegen den Computer-Gegner antreten. Auf jeden Fall 
haben wir für Sie in diesem Sonderheft wieder einmal die 
besten Listings im Bereich Spiele zusammengefaßt, die 
uns in der letzten Zeit auf den Tisch gekommen sind. Den 
Beweis, daß man auch für wenig Geld gute Spiele erhalten 
kann, haben viele Firmen im Lauf der Zeit erbracht, und so 
tummelt sich einiges an Spielesammlungen und preiswer¬ 
ten Extraeditionen erfolgreicher Spiele auf dem Markt. Die 
mit Abstand preiswerteste Methode, an Spiele zu kommen, 
ist aber immer noch unser Spiele-Sonderheft. Für diejeni¬ 
gen, die das Abtippen der Listings scheuen und etwas 
mehr für ihren Spaß ausgeben wollen, gibt es wiederum die 
Diskette zum Heft im Programmservice. Auf ihr befinden 
sich alle Programme, die in dieser Ausgabe enthalten sind 
und sofort in den Computer geladen werden können. 

So bleibt allen Unkenrufen zum Trotz das Spielen am und 
mit dem Computer eine der wichtigsten und schönsten 
Anwendungen auf diesem hochtechnisierten Gebiet. Fin¬ 
den Sie wieder einmal den Mut, ein gutes Spiel ausgiebig 
zu spielen. Wer könnte es Ihnen verdenken? 


Ihr Jörg Kähler (Redakteur) 
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Top-Listing dieser Ausgabe: 

Trigon: 

Ein Action-Spiel der Spitzenklasse! 

Auf der Programmservice-Diskette zu dieser Ausgabe finden Sie 
Trigon, die wohl gelungenste Umsetzung des Spielhallenrenners 
Tron. Die superschnelle Verfolgungsjagd kann mit bis zu drei Teilneh¬ 
mern gleichzeitig gespielt werden. So garantiert allein Trigon Spiel¬ 
spaß für viele Stunden. 

Natürlich enthält die Programmservice-Diskette alle Programme, die 
im Inhaltsverzeichnis mit einem (Q) gekennzeichnet sind. 

2 Disketten für C64/C128 r»n* 

Bestell-Nr. 15717 (sFr 29,50/ÖS 349,-*) DM 34,90 


Weitere Programmservice-Angebote 


Programme aus früheren 64’er-Ausqaben 


Ausgabe 


Bestell-Nr. 


64’er-SH-Ausgabe 4/86 



Das 2. Adventure-Sonderheft. Neben -Spion III-, einem Adventure, das sich um 
einen geplanten Sprengstoff-Anschlag dreht und »Freiheit-, bei dem Sie -nur« den 
Ausweg aus einem Kerkerverlies finden müssen, ist neben sechs weiteren Aben¬ 
teuerspielen -The Sword- eine echte Herausforderung: Über fast eine ganze Disket¬ 
tenseite muB ein Mörder gejagt und identifiziert werden. 

2 Disketten für C64/C128 

Bestell-Nr. L6 86 S4D DM 34£K) sFr 29,50/ÖS 349,-’ 


64’er-SH-Ausgabe 3/85 

Das I.Splele-Sonderheft. Diese Diskette bietet für jeden etwas: Sie finden hier 
Spiele aus allen Bereichen. Seien es Sportspiele wie etwa Golf oder Billard, 
SchieB-, Denk-, Abenteuer- oder Brettspiele. Aber auch Taktik und Geschicklichkeit 
sind dabei. Insgesamt finden sich auf zwei beidseitig bespielten Disketten 24 
Spiele. Es ist also für jeden Geschmack etwas dabei. 

2 Disketten für C64/C128 ___ _ . „. 

Bestell-Nr. L6 85 S3 A DM 34^30 sFr 29,50/ÖS 349,-’ 


64’er-SH-Ausgabe 2/85 

Das 1. Adventure-Sonderheft. Die Bruderschaft des Landes -Sosaria- hat Sie aus¬ 
erwählt, die Tyrannei des Zauberers Saruman zu beenden. Doch bis zur Erfüllung des 
Auftrags sind noch allerlei Hürden zu überwinden. Solches erleben Sie mit -Odyssee-, 
einem von insgesamt sechs deutschsprachigen Adventures, die alle auf diesem 
Programmservice-Angebot zu finden sind. 

Diskette für C64/C128 
Bestell-Nr. L6 85 S2 


DM 34^90* sFr 29,50/ÖS 349,-’ 


’inkl.MwSt. Unverbindliche Preisempfehlung. 


Programme aus früheren 64’er-Sondertieften 



Ausgabe 


16/87 6 64/GW 


Dskelle 


15716 


24.90 


15/87 C64/CI26' 


15715 


Diskette 


2490 299.00' 


14/87 Cl@C116/Plys4 


2990’ 2490 299 


15714 


Diskette 


13/87 (T64/CT28 Hardware 15713' 


Diskette 


L6 86Sl2 D_Diskette 

L6 86 S11~D D iskette 
L6 86 SlO C5~~Biskette 


'24,90_299,0 

2490 299,0 

2490 299,0 


_Programmen 

L6 86 S6D2 1 Diskette mit 


.___Gto a-CAD-Demos _ 19 , 90’ 17 . 00 _!99£0; 

L6 86 S6D3 ^Disketten mit allen 


ir. und Demos 


5/86 Grundwissen 


iskette 


2 Disketten 


L6~86~S3DD i "ßlikettelSF 


VC20. Plus/4 


Tipsfi Tricks 


L6 86 S2D 


1/86 C 128er 


Diskette 


299,00' 


8/85 Assembler 


L6 85 S8D Diskel 


7/85 Professionelle 


Anwendungen 


6/85 Top-Themen 


2 Disketten 


5/85 Floppy, Dätasette L6 85 S5D Diskette 


4/85 Grafik 


Diskette 


L6 85 S3 A 2 Disketten 


2/85 Abenteuersplele L6 85 S2 


Diskette 


1/85 Tips Stricks 


(2. üborarb. Auflage) CB 024 


irogramme 


Verwaltung 

L6 86 S9 CD 

Diskette 29.9 * 24.9C 

299. D* 

8/86 Plus/4 und C16 

L6 86 SB CD 

Diskette 29.9 • 24.9( 

299, D* 


L6 86 S8 KC 

4 Kassolton 34.9 ’ 29.51 

349. 0* 


L6 86 S8 KV 

Kassette 19.9 • 17.01 

199.C 0* 

7/88 PEEKs & PÖKEs 

L6 86 S7D 

1 Diskette 29.9 • 24.9< 

299, 0* 


Bestellungen bitte an: Markt STechnik Verlag AG, Unternehmensbereich Buchverlag, Hans-Pinsel-Straße 2, D8013 Haar. Telefon (089) 4613-0. Schweiz: Markt STochnik Vertriebs AG, 
Kollerstrasse 3, CH-6300 Zug. Telefon (042) 415656 Österreich: Ueberreuter Media Handels- und Verlagsgesellschaft mbH (Großhandel), Alser Straße 24, A-1091 Wien, Telefon (0222) 
4815360; Microcomput-ique E. Schiller, Fasangasse 24, A-1030 Wien, Telefon (0222) 785661. Bestellungen aus anderen Ländern bitte nur schriftlich an: Markt&Technik Verlag AG, 
Abi. Buchvertrieb, Hans-Pinsel-StraBe 2, D-8013 Haar, und gegen Bezahlung einer Rechnung im voraus. 

Bitte verwenden Sie für Ihre Bestellung und Überweisung die abgedruckte Postgiro-Zahlkarte, oder senden Sie uns einen Verrechnungs-Scheck mit Ihrer Bestellung. Sie erleichtern 
uns die Auftragsabwicklung, und dafür berechnen wir Ihnen keine Versandkosten. 
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STRATEGIE-SPIELE 


C64 


Ordnen Sie das Chaos 


Steilen Sie sich einmal einen zweidimensionalen 
Zauberwürfel vor. Was Sie dann vor sich haben, 
sieht etwa so aus wie das Spiel »Quadrix«. Es gibt 
dabei knapp 87 Billionen mögliche Stellungen. 

Q uadrix ist ein Logik-Puzzle, das auf der Spielidee des 
berühmten Zauberwürfels basiert. Der Spieler hat die 
Aufgabe, 25 ungeordnete, bunte Buchstaben- 
uuadrate in alphabetische Reihenfolge zu bringen. Hierfür 
können vier Gruppen von jeweils neun Quadraten um ihr 
Mittelquadrat gedreht werden. Bei Quadrix beträgt die Zahl 
der möglichen Anordnungen 86910050304000 (etwa 87 Bil¬ 
lionen). Dies ist erheblich weniger als beim Zauberwürfel, 


quadrix OOh QO« 12s 

u’-ati ) e i tung r'-rndf 


D DD 



Bild. Ordnen Sie die Felder nach dem Alphabet 

dennoch ist der Schwierigkeitsgrad dieses Spiels so groß, 
daß es bis heute noch niemandem gelungen ist, dieses 
Puzzle vollständig zu lösen. Also, eine Aufgabe für alle Kno- 
bler: Suchen Sie den Lösungsweg! 

Bedienungsanleitung: 

Quadrix (Listing 1) ist ein reines Basic-Programm. Nach¬ 
dem Sie das Programm mit RUN gestartet haben, erschei¬ 
nen auf dem Bildschirm 25 farbige Quadrate (Bild). Diese 
Quadrate sind der Reihe nach mit Buchstaben gekenn¬ 
zeichnet. Das Quadrat mit dem Buchstaben G ist einge¬ 
rahmt. Der Rahmen kann mit den Cursor-Tasten verscho¬ 
ben werden. Es können aber nur die Quadrate mit den 
Buchstaben G, I, Q und S angewählt werden. Die linke 
Cursor-Taste verschiebt den Rahmen nach oben bezie¬ 
hungsweise nach unten. Die rechte Cursor-Taste ver¬ 
schiebt ihn nach rechts oder links. Auf diese Weise kann der 
Rahmen mit nur zwei Fingern gesteuert werden. Testen Sie 
doch einmal die Wirkung der Cursor-Tasten! 

Ein eingerahmtes Quadrat besitzt acht Nachbarqua¬ 
drate. Diese können mit den Tasten <Z> und <X> um 
den Rahmen gedreht werden. Der Drehwinkel beträgt je¬ 
weils 90 Grad. Die Taste <Z> bewirkt eine Drehung gegen 
den Uhrzeigersinn. Mit der Taste <X> werden die Qua¬ 
drate im Uhrzeigersinn gedreht. Bitte beobachten Sie 
genau, wie sich eine Drehung mit <Z> beziehungsweise 
<X> auf die Anordnung der Quadrate auswirkt. 

Der eigentliche Spielbeginn wird mit der Taste <M> ein¬ 
geleitet. Der Computer führt nun selbst 20 Drehungen aus. 
Drehpunkt und Drehrichtung werden dabei völlig wahllos 
festgelegt. Jetzt sind die Quadrate gänzlich durcheinan¬ 
dergeraten. Oft sind nur die Drehpunkte G, I, Q und S noch 
am richtigen Platz. Die Aufgabe des Spielers besteht nun 


darin, alle 25 Quadrate möglichst schnell und mit möglichst 
wenigen Drehungen in die richtige Reihenfolge zu bringen. 

Sie werden bald feststellen, daß dieses Ziel sehr ehrgei¬ 
zig ist. Sie dürfen schon stolz auf sich sein, wenn Sie 
zunächst die oberste Reihe wieder hersteilen. Mit logi¬ 
schem Vorgehen und viel Geduld kann man später bis zur 
dritten Reihe Vordringen. Aber dann wird es sehr schwer, 
denn jede Drehung, die Sie nun ausführen, drängt einige 
richtige Quadrate aus ihrer Position. Hier kann nur noch 
systematisches Anwenden von längeren Drehkombinatio¬ 
nen weiterhelfen. Wenn Sie auch diese Hürde meistern und 
alle 25 Quadrate wieder hersteilen, dürfen Sie sich 
»Quadrix-Genie« nennen. Nach Betätigung der Taste 
<R> werden Sie ausführlich über Ihre augenblickliche 
Spielstärke informiert. Diese Mitteilung erfolgt auch, wenn 
Sie Quadrix mit der Taste < E > beenden. Hierbei werden 
auch die Spielzeit und die Zahl der ausgeführten Drehun¬ 
gen angezeigt. Damit eignet sich Quadrix auch für Wett¬ 
kämpfe. Zum Beispiel: Wer schafft die oberste Reihe in der 
kürzesten Zeit oder mit den wenigsten Drehungen. 

Mit der Taste <S> kann der augenblickliche Spielstand 
auf Diskette gespeichert werden. Neben der Reihenfolge 
der Quadrate wird auch die Spielzeit und die Zahl der Dre¬ 
hungen gespeichert. Der Dateiname lautet »-QUADRIX- 
DATEN«. Mit der Taste < L> wird der zuletzt gespeicherte 
Spielstand wieder geladen. 

Durch Drücken der Taste <A> erhalten Sie übrigens 
auch rpqelmäßig eine ausführliche Spielanleitung. 

In ae. Tabelle 1 ist die Tastaturbelegung nochmals zu¬ 
sammengefaßt. Die Tabelle 2 zeigt Ihnen, wie Sie das Pro¬ 
gramm auf die Datasette anpassen können. 

(W. Trump/og) 


Tastaturbelegung: 

Cursortasten (ohne <SH1FT>): Rahmen verschieben 
Z: Drehung gegen den Uhrzeigersinn 
X: Drehung im Uhrzeigersinn 
M: Mischen und Uhr zurückstellen 
R: Resultat anzeigen 
S: Spielstand auf Diskette speichern 
L: Spielstand von Diskette laden 
A: Anleitung zeigen 
E: Ende 


Tabelle 1. Kurzübersicht zur Tastenbelegung 


Anpassung an Datasette: 

In den Zeilen 710 und 760 muß beim OPEN-Befehl die Ziffer 8 
durch die Ziffer 1 ersetzt werden. In die Zeilen 740 und 790 gehört 
der Befehl GOTO 660. 

Die Zeilen 800 bis 825 können weggelassen werden. 

Tabelle 2. Anpassung für den Datasetten-Besitzer 


100 REM QUADRIX. EIN DENKSPIEL VON <222> 
105 REM <167> 
110 REM WALTER TRUMP <133> 
115 REM REICHELSDORFER SCHULGASSE 18 <033> 
120 REM 8500 NUERNBERG 60 <054> 
125 : <101> 
150 REM INITIALISIEREN <060> 
155 : <131> 
160 POKE 53280,0=POKE 53281,0 <032> 
165 DIM F(5.5),C$(5,5)iQ$(25>,A$(5>,B$(5) <126> 
170 Z=RND(-TI)=DEF FN R(X)rINT(RND(1)*2)*2 

+X <121> 
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C64 


STRATEGIE-SPIELE 


175 

U$ ="CWHITEiHOME.10SPACE3QUADRIX “ 

<245> 

555 

PRINT"S...SPEICHERN DES SPIELSTANDES A 


180 

R$ = "CLEFT,UP,GREY 25 LEFT.DOWNJe 



UF DISK 

<172> 


CDOWN, LEFT^CDOWN, LEFT>c.<DOWN, LEFTTzü 


560 

PRINT"L...LADEN DES LETZTEN SPIELES VO 



ATCUP, LEFTJeCLEFT, UPJeCLEFT, UP Je," 

<254> 


N DISK 

<003 > 

185 

L$= '• CLEFT, UP, 5SHIFT-SPACE, 5 LEFT, DOWN, S 


565 

PRINT"CDOWN,LIG.RED}AENDERUNG DES DREH 



PACE,DOWN,LEFT,SPACE,DOWN.LEFT,SPACE,D 



PUNKTES:CGREEN}(OHNE SHIFT) 

<205> 


OWN,LEFT,5SPACE,LEFT,UP,SPACE,LEFT.UP, 


570 

PRINT"CDOWN}LINKEC2SPACE}CURSORTASTE.. 



SPACE,LEFT,UP,SPACE}" 

<220> 


.HOCH-TIEF 

<042> 

190 

FA$="CGREEN,RED,YELLOW,BLUE,PURPLE}":C 


575 

PRINT"RECHTE CURSORTASTE...LINKS-RECHT 



$(0,0) = '' CHOME, 6RIGHT , DOWN} " 

<066> 


S 

<090> 

195 


< 171 > 

580 

PRINT"CDOWN,LIG.REDODREHUNG AUSFUEHREN 


200 

FOR Y=1 TO 5 =C$(0,Y)=C$ < 0,Y — 1) +"C4DOWN 



:CGREEN}(JEWEILS 90 GRAD) 

<221> 


}" 

<202> 

585 

PRINT"CDOWNJZ...GEGEN DEN UHRZEIGERSIN 


205 

FOR X=1 TO 5:C$(X,Y>=C$(X-l,Y) +"C4RIGH 



N 

<183> 


T>” 

<100> 

590 

PRINT"X...IM UHRZEIGERSINN 

<056> 

210 

Z=5*Y-5+X:F(X,Y)=Z 

<123> 

595 


<063> 

215 

9$ < Z > =MID$ < FAS,Y,1> +"CRVSON,3SPACE.3LE 


600 

REM AUF TASTE WARTEN 

<163> 


FT.DOWN,SPACE}"+CHRS(Z+64) +''CSPACE,3LE 


605 


<073> 


FT,DOWN,3SPACE}" 

<017> 

610 

PRINT"CDOWN,YELLOWJBITTE DRUECKEN SIE 


220 

NEXT X,Y 

<149> 


EINE TASTE !“! 

<045> 

225 


<201> 

615 

GET GS:IF GS =”” THEN 615 

<129> 

230 

A$(0)="SCHADE":B$(0)="ANFAENGER" 

<230> 

620 


<088> 

235 

AS (1 > = " NICHT SCHLECHT ” : B$ (1) ='' AMATEUR" 

<210> 

650 

REM ZEICHNEN 

<032> 

240 

AS(2 > = "PRIMA" B$(2) = "MEISTER" 

<052> 

655 


<123> 

245 

AS (3 ) =" AUSGEZEICHNET'': B$(3) = "PROFI" 

<066> 

660 

PRINT"CCLR,2DOWN}"TAB(10)“CGREY 3}A=AN 


250 

AS (5) = “ UNGLAUBLICH": B$ (5) =" GENIE'' 

<108> 


LEITUNGC2SPACE}E=ENDE 

<206> 

255 


<231> 

665 

FOR Y=1 TO 5:FOR X=1 TO 5 

<168> 

260 

GOSUB 660 

<086> 

670 

PRINT CS(X,Y > Q$(F(X,Y)> 

<241> 

265 

z 

<243> 

675 

NEXT X,Y:V=2:W=2=RETURN 

<023> 

300 

REM TASTATURABFRAGE 

<131 > 

680 


<148> 

305 


<027> 

700 

REM SPEICHERN 

<197> 

310 

PRINT CSCV.W) RS 

<189> 

705 


<173> 

315 

PRINT US MIDS(TIS,1,2)"H "MID$(TI$,3,2 


710 

OPEN 1,8,l,"e:-QUADRIX-DATEN" 

<124> 


)"M "MIDS(TIS,5,2)"S" 

<143> 

715 

PRINT«,"Q"; 

<096> 

320 

GET GS : IF G$=''“ THEN 315 

<248> 

720 

FOR Y=1 TO 5:FOR X=1 TO 5 

<223> 

325 

IF GS="X" THEN D=-l:GOSUB 410 

<156> 

725 

PRINT«,F(X,Y):NEXT X.Y 

<193> 

330 

IF G$=''Z" THEN D=+l:GOSUB 410 

<146> 

730 

PRINT#1,TIS:PRINT«,DR:PRINT«,MI 

<121> 

335 

IF G$=“CDOWN}" THEN PRINT C$(V,W) L$ = W 


735 

CLOSE 1 

<238> 


=(W AND 2)+2 

<067> 

740 

GOTO 810 

<232> 

340 

IF G$="CRIGHT}“ THEN PRINT CS(V,W) L$: 


745 

: 

<213> 


V=(V AND 2)+2 

<045> 

750 

REM LADEN 

<166> 

345 

IF GS="R" THEN GOSUB 910:GOSUB 610 <065> 

755 : 

<223> 

350 

IF G$="M" THEN GOSUB 460 

<063> 

760 

OPEN 1,8,0,"-QUADRIX-DATEN" 

<091> 

355 

IF GS="A" THEN GOSUB 510 

<246> 

765 

GET« ,G$:IF GSO"Q" THEN 785 

<172> 

360 

IF G$="S" THEN GOSUB 710 

<020> 

770 

FOR Y=1 TO 5 :FOR X=1 TO 5 

<019> 

365 

IF G$="L" THEN GOSUB 760 

<230> 

775 

INPUT«,F(X,Y):NEXT X.Y 

<165> 

370 

IF G$="E" THEN GOSUB 910--END 

<245> 

780 

INPUT« , TIS : INPUT« , DR: INPUT«, MI 

<043> 

375 

GOTO 310 

<081> 

785 

CLOSE 1 

<034> 

380 

: 

<102> 

790 

GOTO 810 

<028> 

400 

REM DREHEN 

<193> 

795 


<009> 

405 


<127> 

800 

REM FEHLER-KANAL 

<195> 

410 

Z=F(V-1,W-1>:F(V-1,W-1>=F(V+D,W-D):F(V 


805 


<019> 


+D,W-D)=F(V+1,W+1) 

<077> 

810 

OPEN 2,8,15=INPUTS2,Z,ZS : CLOSE 2 

<231> 

415 

F(V+l,W+l>=F(V-D,W+D)= F(V-D.W+D)=Z 

<159> 

815 

IF Z=0 THEN 660 

<000> 

420 

Z=F(V,W-1)=F(V.W-1)=F(V+D,W):F(V+D,W)= 


820 

PRINT"CCLR,WHITE}"ZS:GOTO 610 

<199> 


F(V.W+l) 

<002> 

825 


<039> 

425 

F(V,W+1)=F<V-D,W>:F(V-D,W)=Z 

<202> 

900 

REM RESULTAT 

<186> 

430 

FOR Y=W-1 TO W+l:FOR X=V-1 TO V+l 

<122> 

905 


<119> 

435 

PRINT CS(X,Y) Q$(F(X,Y)):NEXT X,Y 

<124> 

910 

PRINT"CCLR,WHITE,SPACE}QUADRIX - RESUL 


440 

DR=DR+l:RETURN 

<216> 


TAT: 

<154> 

445 


< 167> 

915 

IF MI=0 THEN PRINT"CDOWN,SPACE}ERST MI 


450 

REM MISCHEN 

<063> 


SCHEN!":GOTO 975 

<128> 

455 


<177> 

920 

Q=0:R=0:FOR Y=1 TO 5:Z=0:FOR X=1 TO 5 

<000> 

460 

MI=l=FOR N=1 TO 20 

<177> 

925 

IF F(X,Y)=5*Y+X-5 THEN Q=Q+1:Z=Z+1 

<164> 

465 

PRINT CSfV.W) LS 

<064> 

930 

NEXT X:R=R+INT(Z/5):NEXT Y 

<216> 

470 

V=FN R(2> = W=FN R(2)=D=FN R(-l) 

<044> 

935 

PRINT“C2DOWN,LIG.RED,SPACE}"AS(R)“!" 

<247> 

475 

PRINT CS(V,W) RS:GOSUB 410:NEXT 

<009> 

940 

PRINT"CDOWN,SPACE}SIE SIND EIN QUADRIX 


480 

TI$="000000":DR=0:RETURN 

<173> 


-"B$(R>”." 

<051> 

485 


<207> 

945 

PRINT"C2DOWN,GREEN,SPACEOSIE HABEN"R"R 


500 

REM ANLEITUNG 

<017> 


EIHE"CHRS(-78*(R< >1>)" WIEDERHERGESTEL 


505 


<227> 


LT. 

<248> 

510 

PRINT"CCLR,WHITEOQUADRIX - ANLEITUNG 

<215> 

950 

PRINT"CDOWN.SPACE}INSGESAMT SIND"Q"QUA 


515 

PRINT"CDOWN,LIG.REDODIE 25 KLEINEN FAR 



DRATE RICHTIG. 

<033> 


BIGEN QUADRATE SOLLEN 

<066> 

955 

PRINT"CDOWN,SPACE}FUER DIESE LEISTUNG 


520 

PRINT"NACH DEM MISCHEN WIEDER AN IHRE 



BENOETIGTEN SIE 

< 19 6 > 


UR- 

<124> 

960 

PRINT"CDOWN}"DR"DREHUNGEN UND EINE ZEI 


525 

PRINT"SPRUENGLICHE POSITION GEBRACHT W 



T VON 

<187> 


ERDEN. 

<026> 

965 

PRINT"CDOWN,SPACE}"MIDS(TIS,1,2)" STUN 


530 

PRINT"HIERZU KANN JEWEILS EINE GRUPPE 



DEN "MIDS(TIS,3,2) i 

<085> 


VON 

<202> 

970 

PRINT" MINUTEN "MIDS(TIS,5,2)" SEKUNDE 


535 

PRINT"3X3 QUADRATEN UM IHR EINGERAHMTE 



N.C2DOWN}" 

<048> 


S 

<203> 

975 

RETURN 

<015> 

540 

PRINT"MITTELQUADRAT GEDREHT WERDEN. 

<133> 

© 64’er 


545 

PRINT"CDOWN,GREEN}M...MISCHEN UND UHR 






ZURUECKSTELLEN 

<213> 

Listing. »Quadrix« geben Sie bitte mit dem Check 


550 

PRINT"R...RESULTAT ANZEIGEN 

<044> 

summer ein und starten es mit RUN 
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STRATEGIE-SPIELE 


C64 


»Vier gewinnt« in neuer Version 


D 


In der Computervariante des bekannten »Vier ge¬ 
winnt« ist der C64 ein starker Gegner, der in 
höheren Levels kaum noch schlagbar ist. Versu¬ 
chen Sie doch einmal, den Computer in einer 
kleinen Partie zu besiegen. 

as Spiel wird auf einem senkrecht stehenden Brett mit 
142 Feldern gespielt, die in sieben Spalten mit je sechs 
Feldern angeordnet sind. 

Die Spieler setzen nun abwechselnd Steine ihrer Farbe 
(rot oder gelb) in beliebige Spalten des Spielfeldes. Dabei 
werden die Steine in den Spalten von unten aufbauend 
übereinandergetürmt, so daß sich das Spielfeld füllt. 

Ziel des Spielers ist es, 4 Steine seiner Farbe in eine 
gerade Reihe zu legen (waagerecht, senkrecht oder diago¬ 
nal) und gleichzeitig den anderen Spieler daran zu hindern, 
dasselbe zu tun (Bild). 

Schafft es keiner der Spieler, eine Viererreihe zu bilden 
und dadurch zu gewinnen, endet das Spiel unentschieden, 
sobald das Spielfeld voll ist. 

Bedienung des Programms: 

Geben Sie das Ladeprogramm (Listing 1) mit dem 
Checksummer, die Maschinenspracheteile (Listings 2 bis 
6) mit dem MSE ein. 

Zunächst wird das Programm mit LOAD"CONNECT 
4",8 geladen. Beim Start mit RUN lädt es die anderen Pro- 




CONMECr FOUR VERSION S.O 


i.*\ <r- 


2 PLHYERS 

COMPUTE 

HELP 

TRKE BF1CK 
NEW OHME 
LEVEL O 



Bild. Bei »Connect 4« ist der C64 ein starker Gegner 

2PLAYERS: Spielen zu zweit. Es wird ebenfalls ein Stein 
gesetzt. Jedoch erfolgt danach kein Computerzug, da nun 
der andere Spieler an der Reihe ist. 

COMPUTE: Der Computer allein macht einen Zug. Dies 
ist zum Beispiel notwendig, wenn er mit dem Spiel begin¬ 
nen soll. Bei wiederholtem Ausführen dieser Funktion 
spielt der Computer gegen sich selbst. 

HELP: Der Computer berechnet einen Zugvorschlag 
und zeigt ihn durch Blinken des Lochs auf dem Spielfeld an. 


grammteile nach. Wenn dies beendet ist, erscheint das 
Spielfeld. TAK F BACK: Der letzte gesetzte Stein wird wieder ent- 

Das Programm wird nun mit einem Joystick in Port 2 fernt. (Beliebig oft möglich, bis kein Stein mehr auf dem 


bedient. Bei Tastaturbedienung sind die Cursortasten und 
die Return-Taste entsprechend zu verwenden. 

Rechts auf dem Bildschirm befindet sich ein Menü. 
Durch Auf- und Abbewegen des Joysticks wird eine Funk¬ 
tion daraus ausgewählt. Die jeweils gewählte Funktion wird 
im Menü durch einen farbigen Balken hervorgehoben. 
Durch einen Druck auf den Feuerknopf wird sie ausgeführt. 

Über dem Spielfeld befindet sich ein beweglicher Greifer. 
Er wird durch Links/Rechts-Bewegungen des Joysticks 
gesteuert und dient beim Setzen eines Steines zur Auswahl 
der gewünschten Spalte des Spielfeldes. 

Erklärung der einzelnen Menüpunkte: 

1 PLAYER: Spiel gegen den Computer. In der Spalte, über 
der der Greifer gerade steht, wird ein Stein gesetzt. Danach 
erfolgt automatisch ein Gegenzug vom Computer. 


Brett ist.) 

NEW GAME: Das Spielfeld wird für ein neues Spiel 
gelöscht. 

LEVEL: Auf Knopfdruck erhöht sich die Spielstärke um 
eine Stufe. War sie bereits maximal (Level 7) eingestellt, 
beginnt sie nun wieder bei Level 0. 

/Ende des Spiels: 

1. Wenn das Spielfeld voll ist, endet das Spiel unentschie¬ 
den. 

2. Wenn der Computer oder ein Spieler eine Viererreihe 

bilden konnte, ist das Spiel zu Ende und der betreffende hat 
gewonnen. Die Viererreihe wird dann durch Blinken ange¬ 
zeigt. Nimmt man den letzten Stein mit »TAKE BACK« 
zurück oder löscht man das Spielfeld, hört das Blinken von 
allein wieder auf. (M. Cibulski/og) 


100 

IF A=0 

THEN 

A=l:D=PEEK(186> 


<225> 

110 

IF A=1 

THEN 

A=2 : L0AD''C4. $70" 

• Di 1 

<024> 

120 

IF A=2 

THEN 

A=3 : L0AD"C4. $C0'' 

• Dt 1 

<092> 

130 

IF A=3 

THEN 

A=4:L0AD"C4.$E0" 

• Di 1 

<140> 

140 

IF A=4 

THEN 

A=5 ■ L0AD"C4.$64" 

. D, 1 

<170> 

150 

:SYS 25600 



<016> 

1 64' 

'er 






Listing 1. Das 
Ladeprogramm 
für Connect 4 
geben Sie bitte 
mit dem Check¬ 
summer ein 


Name s c4.*64 6400 68d2 


6400 s ea a2 OB bd Of 64 9d 00 BO 
640B s BO ca 10 *7 4c le 64 31 9a 
6410 : 64 le 64 c3 c2 cd 3B 30 fl 
6418 : 43 34 2a 54 41 42 a9 06 64 
6420 : a9 06 a2 18 aO 64 20 bd al 


6428 : ff a9 00 Bd 00 20 20 d5 db 
6430 s ff 20 a3 fd 20 5b ff 20 05 
6438 : 8a ff a2 ff 9a 20 OO c2 9b 
6440 I 20 03 c2 20 5a 68 a9 OB 36 
6448 : Bd 02 60 a9 00 Bd 29 60 f5 
6450 s a9 30 Bd lc cf a9 00 Bd 5e 
6458 s 01 60 20 06 c2 a9 85 Bd fd 


6460 

s 

fc 

cf 

ad 

03 

60 

30 

19 

ad 

57 

6468 

s 

02 

60 

c9 

OB 

dO 

12 

a5 

02 

46 

6470 

: 

Bd 

04 

60 

a2 

07 

Be 

02 

60 

19 

647B 

3 

a9 

01 

20 

09 

c 2 

20 

Oc 

c 2 

ae 

6480 

S 

20 

Of 

c 2 

29 

07 

fO 

Od 

a9 

2d 

6488 

1 

BO 

20 

06 

c2 

a9 

ab 

Bd 

fc 

e9 

6490 

I 

cf 

4c 

24 

65 

ae 

02 

60 

bc 

31 

6498 

3 

aO 

61 

cO 

06 

fO 

e 2 

bc 

bO 

54 

64a0 

3 

61 

b? 

50 

61 

25 

02 

fO 

05 

4e 

64aB 

8 

a9 

87 

8d 

fc 

Cf 

a9 

02 

bc 

e3 

64b0 

3 

aO 

61 

cB 

20 

09 

c 2 

Sa 

20 

48 

64bB 

8 

Od 

68 

ad 

03 

60 

10 

18 

20 

ec 

64 c 0 

3 

Oc 

c2 

20 

75 

67 

ad 

03 

60 

95 

64cB 

3 

29 

03 

dO 

03 

aO 

12 

2 c 

aO 

94 

64d0 

- 

3d 

20 

12 

c2 

4c 

80 

64 

a9 

a8 

64dB 

3 

ff 

Bd 

3b 

60 

20 

00 

70 

a2 

82 

64e0 

3 

00 

8e 

3b 

60 

48 

aa 

20 

Oc 

75 

64eB 

8 

c2 

a5 

02 

Bd 

04 

60 

a9 

01 

9b 

64f 0 

s 

20 

09 

c2 

20 

Oc 

c2 

68 

48 

53 

64f 8 

8 

20 

Od 

68 

68 

aa 

bc 

aO 

61 

9c 


Listing 2. Das Hauptprogramm von Connect 4. Bitte mit dem MSE eingeben. 
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STRATEGIE-SPIELE 


C64 


6500 

3 

a9 

02 

20 

09 

c2 

a9 

08 

Bd 

88 

6508 

: 

02 

60 

20 

Oc 

c2 

20 

75 

67 

96 

6510 

3 

ad 

03 

60 

10 

Oc 

29 

03 

dO 

11 

6518 

3 

03 

aO 

12 

2c 

aO 

26 

20 

12 

55 

6520 

3 

c2 

4c 

62 

64 

a9 

01 

Bd 

01 

OB 

6528 

3 

60 

20 

06 

c2 

ad 

03 

60 

30 

47 

6530 

3 

19 

ae 

02 

60 

eO 

08 

dO 

12 

b3 

6538 

c 

a5 

02 

Bd 

04 

60 

a2 

07 

8s 

17 

6540 

3 

02 

60 

a9 

01 

20 

09 

c2 

20 

92 

6548 

3 

Oc 

c2 

20 

Of 

c2 

48 

29 

10 

d3 

6550 

3 

dO 

10 

a9 

81 

20 

06 

c2 

68 

dl 

6558 

8 

29 

01 

dO 

03 

4c 

91 

65 

4c 

16 

6560 

3 

55 

64 

68 

a: 

02 

60 

bc 

aO 

2f 

6568 

3 

61 

cO 

06 

fO 

dd 

aO 

64 

20 

7b 

6570 

3 

12 

c2 

ad 

02 

60 

20 

Od 

68 

9b 

657B 

S 

a9 

02 

ae 

02 

60 

bc 

aO 

61 

3# 

6580 

3 

20 

09 

c2 

a9 

OB 

Sd 

02 

60 

cO 

6588 

3 

20 

Oc 

c2 

20 

75 

67 

4c 

2c 

7f 

6590 

8 

65 

a9 

02 

Bd 

01 

60 

20 

06 

9c 

6598 

S 

c2 

ad 

03 

60 

30 

0 a 

a2 

OB 

*c 

65a0 

3 

8e 

02 

60 

a9 

01 

20 

09 

c2 

37 

65a8 

: 

20 

Of 

c2 

48 

29 

10 

dO 

10 

80 

65b 0 

3 

a9 

B2 

20 

06 

c2 

68 

29 

02 

7b 

65bB 

3 

dO 

03 

4c 

24 

65 

4c 

ee 

65 

al 

65c0 

3 

68 

20 

00 

70 

4B 

aa 

20 

Oc 

b9 

65c 8 

3 

c2 

aS 

02 

8d 

04 

60 

a9 

01 

7b 

65dO 

3 

20 

09 

c2 

20 

Oc 

c2 

68 

48 

33 

6Sd8 

3 

20 

Od 

68 

68 

aa 

bc 

aO 

61 

7c 

65e0 


a9 

02 

20 

09 

c2 

20 

Oc 

c2 

96 

65bB 

3 

20 

75 

67 

4c 

aB 

65 

a9 

03 

89 

65f 0 

8 

Bd 

01 

60 

20 

06 

c2 

20 

Of 

2f 

65f 8 

3 

c2 

48 

29 

10 

dO 

26 

a9 

B3 

17 

6600 


20 

06 

c2 

ad 

05 

60 

29 

7f 

81 

6608 

3 

c9 

04 

dO 

Od 

ad 

03 

60 

30 

7b 

6610 

3 

OB 

a9 

06 

20 

09 

c2 

20 

Oc 

b2 

6618 


c2 

68 

29 

02 

dO 

03 

4c 

91 

12 

6620 

3 

65 

4c 

54 

66 

68 

20 

OO 

70 

f 6 

6628 

8 

48 

ad 

05 

60 

fO 

Ob 

29 

7f 

9f 

6630 


c9 

04 

90 

05 

a9 

06 

20 

09 

ld 

6638 

3 

c2 

20 

Oc 

c2 

68 

aa 

bc 

aO 

76 

6640 


61 

c8 

a9 

00 

Bd 

Oa 

60 

a5 

66 

6648 


02 

Bd 

04 

60 

a9 

04 

20 

09 

6b 


6650 

3 

c2 

4c 

f 6 

65 

a9 

04 

Sd 

01 

96 

6658 

3 

60 

20 

06 

c2 

20 

Of 

c2 

48 

b8 

6660 

8 

29 

10 

dO 

10 

a9 

84 

20 

06 

13 

6668 

3 

c2 

68 

29 

02 

dO 

03 

4c 

ee 

ld 

6670 

8 

65 

4c 

bc 

66 

68 

aO 

64 

20 

55 

6678 

3 

12 

c2 

ad 

05 

60 

fO 

Ob 

29 

03 

6680 

3 

7t 

c9 

04 

90 

05 

a9 

06 

20 

ed 

6688 

3 

09 

c2 

20 

Oc 

c2 

a9 

00 

8d 

11 

6690 

3 

04 

60 

a4 

04 

88 

be 

cO 

61 

b2 

6698 

3 

8a 

48 

a9 

01 

20 

09 

c2 

20 

66 

66a0 

3 

Oc 

c2 

20 

47 

68 

ad 

02 

00 

fa 

66a8 

3 

8d 

04 

60 

68 

aa 

bc 

aO 

61 

32 

66b 0 

3 

cB 

a9 

03 

20 

09 

c2 

20 

Oc 

51 

66b8 

3 

c2 

4c 

5c 

66 

a9 

05 

Bd 

01 

7f 

66c 0 

3 

60 

20 

06 

c2 

20 

Of 

c2 

48 

20 

66c8 

3 

29 

10 

dO 

10 

a9 

85 

20 

06 

83 

66d0 

3 

c2 

68 

29 

02 

dO 

03 

4c 

54 

50 

66d8 

8 

66 

4c 

22 

67 

68 

aO 

64 

20 

37 

66b0 

8 

12 

c2 

20 

bc 

f 6 

20 

ed 

f 6 

09 

66b8 

3 

dO 

03 

20 

Oc 

70 

ad 

05 

60 

Od 

66f 0 

8 

fO 

Ob 

29 

7f 

c9 

04 

90 

05 

a9 

66f 8 

3 

a9 

06 

20 

09 

c2 

20 

Oc 

c2 

bO 

6700 

3 

20 

03 

c2 

20 

5a 

68 

4c 

c4 

fa 

6708 

3 

66 

69 

68 

8d 

ld 

cf 

a9 

41 

68 

6710 

3 

Bd 

lc 

cf 

dO 

21 

69 

28 

8d 

d2 

6718 

3 

ld 

cf 

a9 

01 

Bd 

lc 

cf 

4c 

39 

6720 

3 

bc 

66 

a9 

06 

Bd 

01 

60 

20 

dd 

6728 

3 

06 

c2 

ad 

29 

60 

c9 

OB 

bO 

f 6 

6730 

3 

dB 

69 

70 

Sd 

lc 

cf 

20 

Of 

69 

6738 

3 

c2 

29 

10 

dO 

14 

a9 

86 

20 

96 

6740 

8 

06 

c2 

ad 

29 

60 

c9 

08 

bO 

Ob 

6748 

3 

cc 

69 

30 

8d 

lc 

cf 

4c 

bc 

72 

6750 

3 

66 

20 

bc 

f6 

20 

ed 

f 6 

dO 

c3 

6758 

3 

Of 

ae 

29 

60 

e8 

eO 

10 

90 

Oc 

6760 

3 

02 

e2 

08 

8b 

29 

60 

dO 

ba 

d6 

6768 

3 

ae 

29 

60 

e8 

Ba 

29 

07 

Bd 

09 

6770 

3 

29 

60 

4c 

22 

67 

2c 

3b 

60 

a6 

677B 


30 

Oa 

2c 

03 

60 

10 

05 

aO 

f 5 

6780 

3 

67 

20 

12 

c2 

a4 

04 

88 

b9 

d4 

6788 

3 

00 

62 

Bd 

09 

60 

a9 

OO 

Bd 

ac 

6790 

3 

Od 

60 

Sd 

Oe 

60 

Bd 

Of 

60 

62 

6798 


a9 

01 

20 

ad 

67 

a9 

07 

20 

aO 


67a0 

8 

ad 

67 

a9 

08 

20 

ad 

67 

a9 

cd 

67a8 

1 

09 

20 

ad 

67 

60 

85 

21 

ac 

2a 

67b0 

8 

09 

60 

a2 

00 

eB 

98 

18 

65 

10 

67b B 

3 

21 

a8 

b9 

00 

61 

2S 

03 

fO 

c9 

67c0 

3 

07 

98 

9d 

09 

60 

4c 

b4 

67 

a6 

67cB 

: 

ac 

09 

60 

ca 

e8 

9B 

38 

eS 

6a 

67d0 

3 

21 

aB 

b9 

00 

61 

25 

03 

fO 

Bl 

67dB 

3 

07 

98 

9d 

09 

60 

4c 

cc 

67 

le 

67e0 

3 

eO 

04 

bO 

01 

60 

68 

68 

a2 

3f 

67eB 

3 

06 

a9 

OO 

Se 

09 

60 

6a 

5e 

B9 

67f0 

3 

09 

60 

6a 

5e 

09 

60 

6a 

4a 

62 

67f 8 

3 

4a 

4a 

4a 

4a 

9d 

20 

60 

ca 

35 

6800 

3 

10 

t?7 

a9 

05 

20 

09 

c2 

aS 

af 

6808 

8 

03 

Bd 

04 

60 

60 

48 

85 

lc 

76 

6810 

3 

aS 

a9 

01 

Bd 

03 

60 

be 

bO 

Ob 

6818 

8 

61 

bd 

50 

61 

25 

02 

fO 

07 

cc 

6820 

: 

a9 

BO 

05 

02 

Bd 

03 

60 

20 

3b 

6828 

8 

bc 

f 6 

20 

el 

ff 

dO 

03 

20 

76 

6830 

3 

09 

70 

68 

20 

06 

70 

a5 

04 

12 

6838 

3 

c9 

2b 

90 

Oa 

2c 

03 

60 

30 

b9 

6840 

3 

05 

a9 

80 

Bd 

03 

60 

60 

ea 

76 

684B 

3 

a6 

04 

eO 

02 

dO 

03 

a9 

00 

34 

6850 

9 

2c 

a9 

01 

Bd 

03 

60 

20 

03 

fd 

6B5B 

8 

70 

60 

a9 

01 

85 

02 

Oa 

85 

le 

6B60 

3 

03 

a2 

2a 

a9 

00 

9d 

30 

62 

e7 

6868 

8 

9d 

60 

62 

9d 

90 

62 

9d 

cO 

96 

6870 

8 

62 

9d 

fO 

62 

9d 

20 

63 

9d 

cd 

6878 

3 

50 

63 

9d 

cO 

61 

9d 

00 

62 

cl 

6880 

8 

ca 

dO 

e2 

8p 

03 

60 

b8 

86 

21 

6BBB 

8 

04 

aO 

07 

a9 

00 

99 

aO 

61 

e5 

6890 

3 

be 

c9 

68 

eB 

8a 

99 

bO 

61 

65 

6898 


88 

dO 

fO 

a2 

47 

a9 

OB 

Bd 

16 

68a0 

9 

3c 

60 

aO 

07 

ad 

3c 

60 

fO 

35 

6BaB 

3 

Oe 

c9 

OB 

fO 

Oa 

98 

fO 

07 

f 2 

68b 0 

3 

c9 

07 

fO 

03 

a9 

00 

2c 

a9 

38 

68b 8 

3 

80 

9d 

00 

61 

9d 

50 

61 

ca 

ab 

6BcO 

3 

88 

10 

c 1 

ce 

3c 

60 

10 

da 

Sf 

68c 8 

: 

60 

00 

oa 

10 

1B 

20 

2B 

30 

bO 

68d0 

3 

38 

20 

00 

00 

OO 

00 

00 

00 

19 


Listing 2. (Schluß) 


Name 

: 

c4 

*70 




7000 7B0d 

7090 

: 

85 

78 bd 

bc 77 


n»r7 

bd 

5d 












7098 

: 

cc 

77 

85 

7a 

bd 

de 

/ / 

85 

7c 

7000 

: 

4c 

11 

70 

4c 

04 

75 

4 c 

36 

04 

70a0 

: 

7b 

bd 

ec 

77 

8d 

aa 

77 

bd 

ab 

7008 

: 

74 

4c 

50 

76 

4c 

Od 

77 

98 

cl 

70a8 

: 

fc 

77 

Sd 

ab 

77 

ad 

29 

60 

83 

7010 

: 

60 

ea 

aO 

07 

be 

bO 

61 

bd 

61 

70b0 

3 

c9 

03 

90 

12 

c9 

OB 

bO 

Oe 

ld 

701B 

: 

50 

61 

25 

02 

fO 

15 

2c 

3b 

81 

70b8 

9 

a5 

04 

c9 

Oe 

90 

08 

e6 

7B 

69 

7020 

: 

60 

10 

ec 

98 

48 

aO 

ff 

20 

aO 

70c0 

9 

c9 

16 

90 

02 

e6 

78 

a9 

2b 

28 

7028 

: 

12 

c2 

a9 

86 

8d 

fc 

cf 

68 

a7 

70c8 

9 

38 

B5 

04 

c5 

79 

bO 

OB 

85 

f 5 

7030 

a 

60 

dO 

de 

B8 

dO 

de 

aO 

07 

d5 

70d0 

: 

79 

c5 

78 

bO 

02 

85 

78 

a9 

el 

7038 

: 

be 

bO 

61 

bd 

50 

61 

25 

03 

09 

70dB 

3 

07 

Bd 

al 

63 

a9 

00 

8d 

91 

6f 

7040 

: 

dO 

cd 

BB 

dO 

f 3 

ad 

29 

60 

45 

70e0 

: 

63 

Bd 

2c 

60 

Bd 

2b 

60 

18 

05 

7048 

: 

c9 

05 

90 

35 

c9 

OB 

bO 

31 

61 

70eB 

9 

ad 

al 

63 

69 

30 

Bd 

bc 

cf 

6e 

7050 

: 

20 

b4 

76 

20 

BO 

76 

90 

29 

bc 

70f 0 

9 

a5 

78 

fO 

03 

20 

9b 

71 

a2 

58 

7058 

: 

aO 

00 

bl 

7c 

B5 

lc 

a9 

01 

d6 

70f 8 

: 

00 

Be 

2e 

60 

Be 

2d 

60 

ae 

OB 

7060 

9 

2d 

04 

de 

fO 

08 

a5 

lc 

29 

55 

7100 

: 

al 

63 

bd 

aO 

61 

c9 

06 

fO 

35 

7068 

: 

Of 

85 

lc 

dO 

OB 

a5 

lc 

4a 

Oe 

71 OB 


4e 

20 

7m 

75 

a5 

Ob 

Oa 

Sd 

ab 

7070 

: 

4a 

4a 

4a 

B5 

lc 

a5 

lc 

a6 

cf 

7110 

3 

2d 

60 

aS 

Oc 

2a 

Bd 

2e 

60 

el 

7078 

9 

70 

fO 

05 

38 

a9 

OB 

e5 

lc 

53 

7118 

3 

Oe 

2d 

60 

2 e 

2e 

60 

ad 

2e 

94 

7080 

8 

60 

aO 

52 

20 

12 

c2 

a9 

01 

a9 

7120 

3 

60 

09 

80 

Bd 

2e 

60 

ae 

al 

ba 

7088 

: 

85 

06 

ae 

29 

60 

bd 

ac 

77 

77 

7128 

8 

63 

bd 

aO 

61 

c9 

05 

bO 

27 

94 


7130 

: 

bd 

bO 

61 

69 

01 

9d 

bO 

61 

4d 

7138 

3 

20 

7e 

75 

ae 

al 

63 

38 

bd 

5c 

7140 

3 

bO 

61 

e9 

01 

9d 

bO 

61 

ad 

7c 

7148 

3 

2d 

60 

e5 

Ob 

Sd 

2d 

60 

ad 

9f 

7150 

z 

2e 

60 

eS 

Oc 

Bd 

2e 

60 

ad 

dO 

7158 

: 

81 

63 

cd 

91 

63 

90 

29 

dO 

31 

7160 

3 

Of 

38 

ad 

2d 

60 

ed 

2b 

60 

7f 

7168 

3 

ad 

2s 

60 

ed 

2c 

60 

90 

18 

3a 

7170 

: 

ad 

2d 

60 

Bd 

2b 

60 

ad 

2e 

46 

7178 

3 

60 

Bd 

2c 

60 

ad 

81 

63 

Bd 

45 

7180 

9 

91 

63 

ad 

al 

63 

Bd 

2a 

60 

6e 

7188 

9 

CB 

al 

63 

fO 

03 

4c 

e7 

70 

31 

7190 

3 

aO 

64 

20 

12 

c2 

ad 

2a 

60 

bO 


Listing 3. Die Berechnungen der 
Computerzüge werden ebenfalls 
mit dem MSE eingegeben 
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C64 


STRATEGIE-SPIELE 


7198 


4c 

44 

77 

a6 

06 

bc 

aO 

63 

49 

73c0 


Od 

f 6 

70 

e6 

36 

dO 

lc 

a5 

e7 

75eB 


65 

Oc 

85 

Oc 

60 

B5 

lc 

a2 

le 

71a0 


b9 

aO 

61 

c9 

06 

90 

06 

a9 

8b 

73c 8 


36 

18 

69 

2c 

a4 

06 

99 

80 

cc 

75f 0 

: 

00 

a4 

07 

98 

38 

e5 

lc 

aB 

Bc 

71a8 


00 

9d 

BO 

63 

60 

be 

bO 

61 

85 

73d0 


63 

4c 

32 

74 

86 

36 

a9 

83 

3c 

75f 8 

: 

eB 

eO 

04 

bO 

10 

b9 

OO 

61 

f 9 

71bO 


e8 

bd 

50 

61 

2d 

03 

00 

fO 

84 

73dB 


38 

e5 

36 

a4 

06 

99 

80 

63 

lb 

7600 

B 

30 

Ob 

24 

03 

dO 

07 

b9 

50 

ec 

71b8 


07 

a6 

06 

8a 

9d 

BO 

63 

60 

11 

73e0 


4c 

32 

74 

a9 

00 

B5 

Oe 

a2 

41 

7608 

: 

61 

24 

02 

fO 

e6 

B6 

21 

B4 

4a 

71c0 


a6 

06 

bd 

,iO 

63 

20 

36 

74 

e6 

73eB 


07 

b4 

70 

30 

32 

b9 

50 

61 

60 

7610 

: 

08 

a5 

08 

18 

65 

lc 

85 

08 

4d 

71cB 


a9 

02 

85 

lc 

a9 

00 

85 

lf 

46 

73f 0 


30 

2d 

24 

03 

dO 

de 

24 

02 

b9 

7618 

: 

a8 

a9 

00 

85 

lf 

a2 

04 

b9 

dO 

71d0 


aO 

07 

be 

bO 

61 

bd 

50 

61 

cl 

73f 8 


dO 

15 

c8 

b9 

50 

61 

fO 

12 

b4 

7620 

: 

50 

61 

24 

02 

dO 

29 

b9 

00 

a7 

71dB 


25 

03 

fO 

Oe 

84 

lf 

c6 

lc 

11 

7400 


24 

02 

dO 

11 

9B 

29 

01 

dO 

f 4 

7628 

: 

61 

30 

24 

24 

03 

dO 

20 

24 

ae 

71e0 


fO 

Od 

B8 

bd 

50 

61 

25 

03 

f 3 

740B 


03 

a9 

02 

2c 

a9 

03 

2c 

a9 

9d 

7630 

: 

02 

fO 

02 

e6 

lf 

98 

65 

lc 

8c 

71eB 


dO 

05 

88 

dO 

e5 

fO 

Oe 

20 

d5 

7410 


OS 

2c 

a9 

04 

2c 

a“ 

01 

c5 

b6 

763B 

B 

a8 

ca 

dO 

e3 

a6 

lf 

a5 

Ob 

06 

71f 0 


04 

75 

a6 

06 

a9 

9c 

38 

e5 

45 

741B 


Oe 

90 

04 

85 

Oe 

86 

Od 

ca 

ff 

7640 

S 

7d 

a9 

77 

85 

Ob 

a5 

Oc 

69 

01 

71f 8 


06 

9d 

80 

63 

60 

aS 

lf 

fO 

eb 

7420 


dO 

c7 

a6 

Oe 

fO 

Oc 

ca 

fO 

bc 

7648 

: 

00 

85 

Oc 

c6 

21 

dO 

c2 

60 

4b 

7200 


2d 

a6 

06 

r-4 

79 

90 

03 

4c 

5f 

7428 


9e 

a6 

Od 

f 6 

70 

e6 

36 

4c 

eb 

7650 

: 

20 

b4 

76 

aS 

lc 

a6 

70 

fO 

b7 

7208 


Bf 

72 

b8 

86 

06 

9d 

aO 

63 

72 

7430 


76 

73 

20 

04 

75 

60 

a6 

04 

e5 

7658 

B 

05 

38 

a9 

OB 

e5 

lc 

85 

lc 

72 

7210 


a9 

00 

9d 

90 

63 

e6 

78 

20 

c2 

7438 


9d 

cO 

61 

48 

aB 

b9 

e4 

cc 

lc 

7660 

: 

20 

80 

76 

aO 

00 

bl 

7c 

dO 

93 

7218 


9b 

71 

c 6 

7B 

20 

04 

75 

a6 

72 

7440 


49 

3f 

99 

e4 

cc 

be 

bO 

61 

74 

7668 

: 

02 

a5 

lc 

Oa 

Oa 

Oa 

Oa 

05 

aB 

7220 


06 

a9 

bO 

38 

fd 

80 

63 

ca 

35 

7448 


8a 

a4 

04 

99 

00 

62 

a5 

02 

06 

7670 

s 

lc 

91 

7c 

a2 

07 

aO 

07 

b5 

c5 

7228 


9d 

80 

63 

86 

06 

60 

a6 

06 

b9 

7450 


9d 

00 

61 

86 

lc 

6B 

aa 

fe 

c4 

7678 

B 

70 

91 

7c 

ca 

88 

dO 

fB 

60 

dd 

7230 


e4 

78 

bO 

5b 

e4 

79 

bO 

57 

73 

745B 


bO 

61 

fo 

aO 

61 

a9 

01 

20 

34 

7680 

3 

a9 

00 

85 

7c 

a9 

20 

85 

7d 

c7 

7238 


eB 

B6 

06 

a9 

07 

9d 

aO 

63 

cl 

7460 


ae 

74 

a6 

04 

9d 

30 

62 

a9 

ab 

7688 

B 

aO 

00 

a2 

07 

bl 

7c 

fO 

le 

bl 

7240 


a9 

00 

9d 

90 

63 

20 

9b 

71 

eb 

7468 


07 

20 

ae 

74 

a6 

04 

9d 

20 

fb 

7690 

: 

aO 

07 

bl 

7c 

d5 

70 

dO 

06 

eO 

7248 


a6 

06 

bd 

80 

63 

dd 

90 

63 

9f 

7470 


63 

a9 

OB 

20 

ae 

74 

a6 

04 

df 

769B 

3 

ca 

88 

dO 

f 6 

38 

60 

18 

a9 

f 3 

72S0 


fO 

2B 

90 

26 

9d 

90 

63 

a4 

72 

7478 


9d 

cO 

62 

a9 

09 

20 

ae 

74 

7B 

76a0 

3 

OB 

65 

7c 

B5 

7c 

a9 

00 

65 

Oa 

7258 


06 

88 

18 

79 

90 

63 

c9 

bl 

86 

7480 


a 6 

04 

9d 

60 

62 

a9 

f 7 

20 

2f 

76aB 

3 

7d 

85 

7d 

4c 

88 

76 

aO 

OB 

aO 

7260 


bO 

ld 

eO 

02 

fO 

14 

c9 

bO 

4f 

748B 


ae 

74 

a6 

04 

9d 

50 

63 

a9 

dB 

76b0 

3 

91 

7c 

18 

60 

•9 

01 

a2 

07 

cd 

7268 


fO 

15 

eO 

04 

90 

Oc 

bd 

90 

ld 

7490 


fB 

20 

ae 

74 

•A 

04 

9d 

fO 

b5 

76bB 

3 

95 

70 

ca 

dO 

fb 

a2 

07 

bc 

bc 

7270 


63 

88 

88 

79 

90 

63 

c9 

bl 

17 

7498 


62 

a9 

f 9 

20 

ae 

74 

a6 

04 

82 

76c 0 

3 

bO 

61 

88 

b9 

00 

61 

30 

06 

52 

7278 


bO 

05 

de 

aO 

63 

dO 

c6 

a9 

a2 

74a0 


9d 

90 

62 

e6 

04 

aS 

02 

a6 

bd 

76c B 

B 

c9 

02 

36 

70 

dO 

f 4 

ca 

dO 

af 

7280 


bO 

38 

fd 

90 

63 

ca 

9d 

80 

e2 

74 a8 


03 

86 

02 

B5 

03 

60 

85 

21 

ab 

76d0 


ee 

a9 

00 

85 

70 

a5 

71 

c5 

c9 

7288 


63 

B6 

06 

20 

04 

75 

60 

a9 

75 

74b0 


a4 

lc 

98 

18 

65 

21 

aS 

b9 

01 

76dB 

3 

77 

90 

28 

a5 

72 

c5 

76 

90 

a6 

7290 


58 

a6 

06 

9d 

BO 

63 

24 

7a 

19 

74b8 


00 

61 

24 

02 

dO 

f 4 

29 

B3 

13 

76e0 

3 

22 

a5 

73 

c5 

75 

90 

lc 

a5 

02 

7298 


30 

03 

4c 

32 

73 

a9 

07 

85 

4f 

74c 0 


dO 

2b 

b9 

SO 

61 

25 

02 

dO 

B7 

76eB 

3 

71 

a6 

77 

85 

77 

86 

71 

a5 

f8 

72a0 


lc 

a9 

ff 

85 

lf 

a6 

lc 

bc 

52 

74c8 


24 

84 

lf 

a2 

05 

ca 

fO 

20 

f5 

76f 0 

: 

72 

a6 

76 

B5 

76 

86 

72 

a5 

b4 

72aB 


bO 

61 

a2 

00 

cB 

b9 

50 

61 

10 

74d0 


98 

1B 

65 

21 

aB 

b9 

00 

61 

Od 

76f 8 


73 

a6 

75 

85 

75 

86 

73 

a9 

79 

72b0 


30 

5c 

24 

02 

dO 

22 

24 

03 

Oc 

74d8 


25 

02 

dO 

fi 

a4 

lf 

ca 

fO 

cl 

7700 


ff 

85 

70 

60 

40 

30 

3a 

43 

df 

72bB 


dO 

03 

e8 

dO 

ef 

cB 

b9 

so 

2b 

74e0 


Of 

98 

38 

e5 

21 

aB 

b9 

00 

44 

770B 

3 

34 

2e 

54 

41 

42 

20 

bc 

f 6 

97 

72c 0 


61 

30 

4b 

24 

03 

dO 

30 

c8 

9a 

74eB 


61 

25 

02 

dO 

fl 

a9 

00 

60 

a4 

7710 

: 

20 

el 

ff 

fO 

fB 

a9 

00 

85 

27 

72c8 


b9 

50 

61 

30 

41 

24 

02 

dO 

e7 

74f 0 


a4 

lf 

b9 

50 

61 

05 

02 

99 

16 

7718 

3 

71 

20 

BO 

76 

18 

a5 

7c 

69 

fc 

72d0 


3d 

24 

03 

dO 

eB 

eB 

dO 

ef 

f 3 

74f8 


50 

61 

98 

60 

OO 

OB 

10 

18 

de 

7720 

3 

Oa 

85 

ae 

a5 

7d 

69 

00 

85 

7b 

72d8 


24 

03 

dO 

32 

cB 

b9 

50 

61 

57 

7500 


20 

28 

30 

38 

c6 

04 

ac 

04 

8f 

7728 


af 

a9 

00 

85 

Cl 

a9 

20 

85 

52 

72e0 


30 

2c 

24 

02 

dO 

ld 

cB 

b9 

fc 

7508 


00 

a5 

02 

a6 

03 

B6 

02 

85 

a8 

7730 

3 

c2 

a9 

09 

a2 

04 

aO 

77 

20 

Cl 

72e8 


50 

61 

30 

22 

24 

03 

dO 

le 

13 

7510 


03 

be 

cO 

61 

de 

aO 

61 

de 

05 

7738 


bd 

ff 

a9 

08 

aB 

aa 

20 

ba 

36 

72f 0 


24 

02 

dO 

e8 

eB 

dO 

ef 

e4 

05 

7518 


bO 

61 

a9 

00 

be 

00 

62 

9d 

94 

7740 

3 

ff 

6c 

32 

03 

48 

a2 

05 

a9 

63 

72f 8 


lf 

bO 

13 

86 

lf 

a9 

01 

B5 

53 

7520 


00 

61 

be 

30 

62 

fO 

OB 

a5 

aO 

7748 


20 

9d 

45 

cc 

ca 

10 

fa 

ad 

96 

7300 


21 

dO 

Ob 

ca 

e4 

lf 

bO 

06 

bc 

7528 


02 

5d 

50 

61 

9d 

50 

61 

be 

78 

7750 


78 

00 

fO 

2f 

a2 

lf 

ad 

91 

e7 

7308 


86 

lf 

a9 

OO 

85 

21 

c 6 

lc 

3d 

7530 


60 

62 

fO 

OB 

a5 

02 

5d 

50 

7f 

7758 

3 

63 

c9 

29 

90 

26 

Be 

45 

cc 

B2 

7310 


dO 

93 

a6 

06 

a5 

21 

30 

la 

6d 

7538 

■ 

61 

9d 

50 61 be ,2 

fO 

84 

7760 

3 

c9 

2d 

90 

lf 

Eta 

46 

cc 

c9 

aa 

7318 


dO 

Oc 

1B 

a9 

29 

65 

lf 

9d 

9f 

7540 


OB 

a5 

02 

5d 

50 

61 

9d 

50 

6e 

7768 


58 

90 

18 

8e 

47 

cc 

c9 

59 

95 

7320 


80 

63 

20 

04 

75 

60 

38 

a9 

69 

7548 


61 

be 

cO 

62 

fO 

OB 

a5 

02 

6f 

7770 


90 

11 

8e 

48 

cc 

c9 

84 

90 

84 

7328 


87 

e5 

lf 

9d 

80 

63 

20 

04 

c9 

7550 


5d 

50 

61 

9d 

50 

61 

be 

fO 

ce 

7778 


Oa 

Be 

49 

cc 

c9 

88 

90 

03 

de 

7330 


75 

60 

24 

7b 

30 

03 

4c 

32 

ff 

7558 


62 

fO 

OB 

a5 

02 

5d 

50 

61 

f 8 

7780 


8e 

4a 

cc 

2c 

3b 

60 

10 

lf 

21 

7338 


74 

a9 

07 

85 

Od 

aO 

00 

a6 

16 

7560 


9d 

50 

61 

be 

20 

63 

fO 

OB 

46 

7788 


ae 

29 

60 

fO 

la 

a2 

87 

c9 

69 

7340 


Od 

bd 

bO 

61 

aa 

bd 

50 

61 

21 

7568 


a5 

02 

5d 

50 

61 

9d 

50 

61 

77 

7790 


05 

90 

OB 

a2 

85 

c9 

84 

90 

Oe 

7348 


30 

Ob 

eB 

bd 

50 

61 

29 

03 

aa 

7570 


be 

50 

63 

fO 

OB 

a5 

02 

5d 

be 

7798 


02 

a2 

86 

Be 

fc 

cf 

c9 

88 

e5 

7350 


dO 

05 

c8 

dO 

fO 

a2 

00 

ca 

a9 

7578 


50 

61 

9d 

50 

61 

60 

a9 

00 

aa 

77a0 


90 

05 

aO 

ff 

20 

12 

c2 

68 

49 

7358 


8a 

a6 

Od 

95 

70 

c6 

Od 

dO 

3e 

7580 


85 

Oc 

ad 

04 

de 

29 

04 

B5 

29 

77aB 

3 

60 

01 

00 

OO 

00 

01 

02 

03 

9f 

7360 


de 

98 

18 

65 

04 

c9 

2b 

90 

99 

7588 


Ob 

a6 

06 

bc 

aO 

63 

b9 

bO 

6d 

77b0 

3 

03 

04 

05 

06 

08 

09 

Oa 

Ob 

bf 

7368 


03 

4c 

32 

74 

98 

85 

36 

29 

Bd 

7590 


61 

85 

07 

a8 

b9 

50 

61 

25 

79 

77bB 


Oc 

Od 

Oe 

Of 

00 

01 

04 

OB 

d9 

7370 


01 

fO 

03 

4c 

e3 

73 

a9 

00 

b4 

7598 


03 

fO 

05 

a9 

05 

85 

Oc 

60 

f 7 

77c 0 

3 

Oa 

Of 

Of 

Of 

Of 

Of 

Of 

Of 

bb 

7378 


85 

Ob 

a2 

07 

b4 

70 

30 

32 

82 

75a0 


a9 

01 

20 

ed 

75 

a9 

07 

20 

91 

77c B 

3 

Of 

Of 

Of 

Of 

00 

00 

ff 

ff 

05 

7380 


b9 

50 

61 

30 

2d 

24 

02 

dO 

5d 

75aB 


ed 

75 

a9 

OB 

20 

ed 

75 

a9 

56 

77d0 

3 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

cf 

7388 


3e 

24 

03 

dO 

15 

c8 

b9 

50 

d2 

75b0 


09 

20 

ed 

75 

a5 

Ob 

a6 

Oc 

59 

77dB 

3 

ff 

ff 

ff 

ff 

00 

00 

00 

00 

d7 

7390 


61 

fO 

12 

24 

03 

dO 

11 

98 

9f 

75b 8 


85 

37 

86 

4f 

a5 

02 

a6 

03 

6f 

77e0 

3 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

df 

7398 


29 

01 

dO 

03 

a9 

02 

2c 

a9 

85 

75c 0 


B6 

02 

85 

03 

a9 

01 

20 

ed 

OB 

77eB 

3 

ff 

ff 

ff 

ff 

05 

05 

04 

04 

77 

73a0 


03 

2c 

a9 

05 

2c 

a9 

04 

2c 

3d 

7ScB 


75 

a9 

07 

20 

ed 

75 

a9 

08 

19 

77f 0 

3 

04 

04 

04 

04 

04 

04 

04 

04 

fO 

73aB 


a9 

01 

c5 

Oe 

90 

04 

B5 

Oe 

60 

75dO 


20 

ed 

75 

a9 

09 

20 

ed 

75 

ae 

77f B 

3 

04 

04 

04 

04 

14 

14 

Of 

Oa 

b2 

73b 0 


86 

Od 

ca 

dO 

c7 

a6 

Oe 

dO 

15 

75dB 


a5 

02 

a6 

03 

86 

02 

B5 

03 

ld 

7800 

3 

04 

04 

04 

04 

04 

04 

04 

04 

00 

73b8 


03 

4c 

32 

74 

ca 

fO 

15 

a6 

d2 

75e0 


a5 

37 

65 

Ob 

85 

Ob 

a5 

4f 

cl 

780B 


04 

04 

04 

04 

20 

00 

00 

00 

92 


Name I c4.*c0 cOOO cad5 


cOOO 

, 

18 

1B 

7e 

18 

18 

18 

1B 

00 

6a 

cOOB 

s 

7f 

63 

63 

7f 

63 

63 

63 

00 

eO 

C010 

: 

7e 

63 

63 

7e 

63 

63 

7e 

00 

34 

cOlB 

3 

3f 

63 

60 

60 

60 

63 

3f 

00 

4b 

c020 

: 

7c 

66 

63 

63 

63 

66 

7c 

00 

70 

c02B 

: 

7f 

60 

60 

7c 

60 

60 

7f 

00 

B6 

c030 

: 

7f 

60 

60 

7c 

60 

60 

60 

00 

12 

c038 

3 

7e 

63 

60 

67 

63 

63 

3e 

00 

b7 

c040 

: 

63 

63 

63 

7f 

63 

63 

63 

00 

fc 

c048 

3 

3c 

1B 

1B 

1B 

18 

18 

3c 

00 

cd 

c050 

3 

7e 

06 

06 

06 

06 

66 

3c 

00 

98 

c05B 

3 

63 

66 

7c 

78 

6c 

66 

63 

00 

a4 

c060 

3 

60 

60 

60 

60 

60 

60 

7f 

00 

lb 

c068 

: 

63 

77 

7f 

6b 

63 

63 

63 

00 

b3 

c070 

3 

63 

73 

7b 

7f 

6f 

67 

63 

00 

lb 

c07B 

3 

3e 

63 

63 

63 

63 

63 

3e 

00 

f 7 

c080 

3 

7e 

63 

63 

7e 

60 

60 

60 

00 

e3 

c088 

: 

3e 

63 

63 

63 

6f 

67 

3f 

00 

ec 

c090 

3 

7e 

63 

63 

7e 

6c 

66 

63 

00 

fO 

C098 

3 

3f 

60 

60 

3e 

03 

03 

7e 

00 

2a 


cOaO 

: 

7f 

ib 

1B 

18 

18 

IB 

18 

00 

d7 

cOaS 

: 

63 

63 

63 

63 

63 

63 

3e 

00 

4c 

cObO 

: 

63 

63 

63 

36 

36 

lc 

lc 

00 

19 

c0b8 

s 

63 

63 

63 

6b 

7f 

77 

63 

00 

54 

cOcO 

: 

63 

36 

36 

lc 

36 

36 

63 

00 

f 2 

cOcB 

: 

63 

63 

36 

lc 

lc 

lc 

lc 

00 

01 

cOdO 

3 

7f 

06 

Oc 

3e 

IB 

30 

7f 

00 

le 

cOdS 

3 

eO 

eO 

eO 

eO 

eO 

fc 

fc 

fc 

60 

cOeO 

3 

00 

00 

00 

00 

00 

ff 

ff 

ff 

eO 

c0e8 

3 

»0 

eO 

eO 

eO 

eO 

eO 

eO 

eO 

e7 

cOf 0 

3 

BO 

cO 

eO 

fO 

•*% 

CD 

fc 

fo 

ff 

9a 

cOf 8 

8 

00 

00 

00 

00 

00 

18 

18 

00 

la 

clOO 

: 

00 

00 

00 

00 

00 

00 

00 

00 

01 

cl08 

3 

00 

00 

00 

ff 

ff 

00 

00 

00 

OB 

cllO 

: 

18 

18 

IB 

18 

IB 

18 

18 

18 

10 

cl 18 

8 

1B 

18 

18 

f 8 

fB 

18 

18 

IB 

42 

cl20 

: 

18 

18 

IB 

lf 

lf 

18 

18 

18 

72 

cl2S 

3 

ff 

f8 

eO 

cO 

cO 

BO 

80 

BO 

07 

cl30 

: 

ff 

lf 

07 

03 

03 

01 

01 

01 

lf 

cl3B 

3 

80 

80 

80 

cO 

cO 

eO 

fB 

ff 

27 

cl40 

s 

01 

01 

01 

03 

03 

07 

lf 

ff 

48 

cl48 

3 

00 

07 

lf 

3f 

3f 

7f 

7f 

7f 

69 


Cl50 

3 

00 

eO 

fB 

fc 

fc 

fe 

fe 

fe 

60 

C15B 

t 

7f 

7f 

7f 

3f 

3f 

lf 

07 

00 

68 

C160 

: 

fe 

fe 

fe 

fc 

fc 

fB 

eO 

00 

58 

C16B 

: 

ff 

ff 

ff 

00 

00 

OO 

00 

00 

67 

cl70 

: 

ff 

ff 

ff 

eO 

eO 

eO 

eO 

eO 

e5 

C17B 

s 

OO 

OO 

00 

00 

00 

07 

07 

07 

db 

clBO 

3 

3e 

63 

67 

6b 

73 

63 

3e 

00 

02 

clBB 

: 

06 

Oe 

le 

36 

06 

06 

Of 

00 

bl 

cl90 

3 

le 

33 

03 

06 

Oc 

18 

7f 

00 

49 

cl9B 

2 

le 

33 

03 

Oe 

03 

33 

le 

00 

15 

claO 

2 

60 

66 

66 

7f 

06 

06 

06 

00 

66 

claB 

3 

7f 

60 

60 

7c 

06 

06 

7c 

00 

82 

clbO 

3 

06 

Oc 

IB 

3c 

66 

63 

3e 

00 

c4 

clb8 

3 

7f 

03 

06 

3f 

18 

30 

60 

00 

a7 

clcO 

: 

3e 

63 

63 

lc 

63 

63 

3e 

00 

57 

clcB 

8 

3e 

63 

63 

3f 

03 

63 

3f? 

00 

bd 

cldO 


00 

00 

1B 

18 

00 

18 

18 

00 

fb 

cldS 

3 

00 

00 

00 

Of 

lf 

18 

IB 

18 

fe 
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STRATEGIE-SPIELE 


C64 


cleO 


00 

00 

00 

fO 

f 8 

18 

1B 

18 

df 

cleB 


1B 

18 

1B 

fB 

fO 

OO 

OO 

00 

41 

cif 0 


1B 

1B 

1B 

lf 

Of 

00 

00 

00 

ef 

cif B 


ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

f 7 

c200 


4c 

f 6 

c3 

4c 

f 2 

c6 

4c 

19 

Oa 

c20B 


c7 

4c 

79 

c7 

4c 

03 

c7 

4c 

e5 

c210 


54 

c5 

4c 

b5 

c5 

99 

lc 

db 

62 

c21B 


90 

3f 

c6 

le 

20 

c3 

B7 

20 

3c 

c220 


03 

Of 

Oe 

Ob 

05 

03 

14 

20 

e9 

c22B 


06 

Of 

15 

12 

20 

20 

16 

05 

a3 

c230 


12 

13 

07 

Of 

Oa 

20 

34 

lf 

el 

c238 


30 

20 

20 

BO 

3f 

B7 

lf 

c5 

c9 

c240 


90 

3f 

20 

c3 

90 

2e 

2d 

c2 

a5 

C248 


2e 

2d 

c2 

2e 

2d 

c2 

2e 

2d 

7f 

c250 


c2 

2e 

2d 

c2 

2e 

2d 

c? 

2e 

81 

c25B 


2d 

c2 

BO 

3f 

B9 

3f 

c5 

90 

b9 

c260 


3f 

20 

c3 

90 

ld 

20 

c2 

ld 

ca 

c268 


20 

c2 

ld 

20 

c2 

ld 

20 

c2 

50 

c270 


ld 

20 

c2 

ld 

20 

c2 

ld 

20 

be 

c27B 


c2 

BO 

3f 

89 

3f 

c5 

90 

3f 

5e 

f 280 


20 

c3 

90 

ld 

20 

c2 

ld 

20 

16 

c2BB 


c2 

ld 

20 

c2 

ld 

20 

c2 

ld 

51 

c290 


20 

c2 

ld 

20 

c2 

ld 

20 

c2 

78 

c29B 


BO 

3f 

B9 

3f 

c5 

90 

3f 

le 

lc 

c2a0 


20 

c2 

90 

lb 

20 

20 

2f 

lb 

9f 

c2aB 


20 

20 

2f 

lb 

20 

20 

2f 

lb 

fe 

c2b0 


20 

20 

2f 

lb 

20 

20 

2f 

lb 

06 

c2b8 


20 

20 

2f 

lb 

20 

20 

2f 

b7 

47 

c2c0 


20 

lf 

c6 

70 

3f 

20 

c2 

86 

41 

c2cB 


3f 

db 

87 

3b 

21 

c9 

3c 

B6 

9c 

c2d0 


3f 

db 

B7 

22 

20 

c9 

22 

86 

09 

c2dB 


3f 

db 

87 

22 

20 

c9 

22 

B6 

11 

c2e0 


3f 

db 

87 

22 

20 

c9 

22 

86 

19 

c2eB 


3f 

db 

B7 

22 

20 

c9 

22 

86 

21 

c2f 0 


3f 

db 

B7 

22 

20 

c9 

22 

86 

29 

c2f 0 


3f 

db 

B7 

22 

20 

c9 

22 

B6 

31 

c300 


3f 

db 

87 

22 

20 

c9 

22 

B6 

39 

c30B 


3f 

db 

87 

22 

20 

c9 

22 

86 

41 

c310 


3f 

db 

B7 

22 

20 

c9 

22 

86 

49 

c31Q 


3f 

db 

87 

22 

20 

c9 

22 

B6 

51 

c320 


3f 

db 

B7 

22 

20 

c9 

22 

B6 

59 

C32B 


3f 

db 

87 

22 

20 

c9 

22 

86 

61 

c330 


3f 

db 

B7 

22 

20 

c9 

22 

B6 

69 

c33B 


3f 

db 

87 

24 

21 

c9 

23 

86 

c5 

c340 


3f 

db 

87 

22 

20 

c9 

22 

06 

79 

c34B 


3f 

db 

B7 

22 

20 

c9 

22 

86 

81 

c350 


3f 

db 

B7 

22 

20 

c9 

22 

86 

B9 

c358 


3f 

db 

B7 

3e 

21 

c9 

3d 

00 

B4 

c360 


20 

31 

20 

10 

Oc 

01 

19 

05 

5a 

c36B 


12 

20 

20 

32 

20 

10 

Oc 

01 

Bd 

c370 


19 

05 

12 

13 

20 

03 

Of 

Od 

63 

c37B 


10 

15 

14 

05 

20 

20 

20 

OB 

4c 

c3B0 


05 

Oc 

10 

20 

20 

20 

20 

20 

57 

c3B8 


20 

14 

01 

Ob 

05 

20 

02 

01 

af 

c390 


03 

Ob 

20 

Oe 

05 

17 

20 

07 

7a 

c398 


01 

Od 

05 

20 

20 

Oc 

05 

16 

OB 

c3a0 


05 

Oc 

20 

20 

20 

20 

20 

02 

3f 

c3aB 


05 

07 

09 

Oe 

Oe 

05 

12 

20 

c7 

c3b0 


20 

Oe 

Of 

16 

09 

03 

05 

20 

5b 

c3b8 


20 

20 

20 

01 

04 

16 

01 

Oe 

22 

c3c0 


03 

05 

04 

20 

20 

07 

Of 

Of 

eO 

c3c8 


04 

20 

20 

20 

20 

20 

20 

10 

Bc 

c3d0 


12 

Of 

06 

09 

20 

20 

20 

20 

dO 

c3d8 


20 

05 

1B 

10 

05 

12 

14 

20 

f 4 

c3e0 


20 

20 

20 

Od 

01 

05 

13 

14 

67 

c3eS 


12 

Of 

20 

20 

20 

Ol 

Oe 

01 

d2 

c3f 0 


Oc 

19 

13 

05 

20 

20 

7B 

ad 

2f 

c3f B 


00 

dd 

29 

fc 

Bd 

OO 

dd 

a9 

74 

c400 


00 

09 

30 

Bd 

10 

dO 

a9 

09 

03 

c408 


Bd 

21 

dO 

a9 

Oe 

Bd 

20 

dO 

ff 

c410 


Bd 

22 

dO 

a9 

06 

Bd 

23 

dO 

13 

c41B 


a9 

00 

8d 

24 

dO 

ad 

11 

dO 

Oa 

c420 


09 

50 

Bd 

11 

dO 

a9 

lf 

Bd 

c9 

c428 


1B 

d4 

a7 

71 

Bd 

17 

d4 

a9 

7b 

c430 


64 

Bd 

16 

d4 

•<f 

00 

Bd 

25 

96 

c43B 


dO 

a9 

06 

Bd 

26 

dO 

a9 

01 

a2 

c440 


Bd 

2d 

dO 

a9 

07 

8d 

2e 

dO 

04 

C44B 


a9 

00 

Bd 

2c 

dO 

a9 

BO 

Bd 

52 

c450 


fe 

cf 

a9 

Bl 

Bd 

ff 

cf 

a9 

3c 

c45B 


B2 

Bd 

fd 

cf 

a9 

3c 

Bd 

Oa 

el 

c460 


dO 

a9 

4e 

Bd 

Ob 

dO 

a9 

30 

B8 

c468 


Bd 

10 

dO 

a9 

fO 

Bd 

15 

dO 

dB 

c470 


a9 

cO 

Bd 

lb 

dO 

a9 

40 

Bd 

b7 

C47B 


lc 

dO 

.17 

10 

Bd 

ld 

dO 

a9 

cl 

c4B0 


dd 

Bd 

Oc 

dO 

Bd 

Oe 

dO 

a9 

21 

C48B 


44 

Bd 

Od 

dO 

a9 

07 

Bd 

2b 

50 

c490 


dO 

a9 

00 

Bd 

OB 

dO 

a9 

43 

lb 

C49B 


Bd 

09 

dO 

a9 

85 

Bd 

fc 

cf 

6b 

c4a0 


a9 

00 

Bd 

Oa 

60 

Bd 

15 

60 

75 

c4aB 


20 

69 

c6 

20 

03 

c7 

20 

f 2 

07 

c4b0 


c6 

a9 

7f 

Bd 

Od 

de 

a9 

f 8 

2d 

c4bB 


Bd 

12 

dO 

ad 

11 

dO 

29 

7f 

73 

c4c0 


Bd 

11 

dO 

a9 

81 

Bd 

la 

dO 

ce 

c4cB 


a9 

f 7 

Bd 

14 

03 

a9 

c7 

Bd 

Oa 

c4d0 


15 

03 

58 

a9 

OB 

20 

d2 

ff 

7f 

c4dB 


60 

a9 

BO 

Bd 

14 

60 

ad 

OO 

da 

c4e0 


de 

aa 

4d 

12 

60 

2d 

12 

60 

lf 


c4eB 

3 

48 

Ba 

09 

Oc 

Bd 

12 

60 

68 

f 5 

c4f 0 

3 

dO 

23 

20 

87 

ea 

20 

c4 

ff 

Be 

C4f 8 

3 

aa 

a9 

01 

eO 

91 

fO 

16 

Oa 

eO 

c500 

3 

eO 

11 

fO 

11 

Oa 

eO 

9d 

fO 

c7 

c50B 

3 

Oc 

Oa 

eO 

ld 

fO 

07 

Oa 

eO 

26 

c510 

3 

Od 

fO 

02 

a9 

00 

a2 

00 

Be 

7d 

c51B 

3 

14 

60 

60 

ae 

01 

60 

ad 

03 

la 

cS20 

3 

60 

30 

OB 

dO 

Oc 

bd 

3f 

c5 

ec 

c52B 

3 

4c 

34 

c5 

bd 

4d 

c5 

4c 

34 

54 

c530 

3 

c5 

bd 

46 

c5 

49 

ff 

8d 

11 

Ob 

c538 

3 

60 

a9 

40 

Bd 

Ba 

02 

60 

01 

6b 

c540 

3 

00 

Oc 

Oc 

lc 

lc 

Oe 

01 

00 

03 

c54B 

3 

Oc 

Oc 

Oc 

Oc 

Oe 

ld 

lc 

lc 

51 

c550 

3 

lc 

Oc 

Oc 

Oe 

20 

lb 

cS 

a9 

7c 

c558 

3 

ff 

Bd 

lf 

60 

20 

d9 

c4 

2d 

30 

c560 

3 

11 

60 

4B 

29 

13 

fO 

Oc 

a9 

15 

c56B 

3 

B2 

Bd 

fd 

cf 

a9 

OO 

Bd 

lf 

39 

c570 

3 

60 

68 

60 

68 

48 

29 

04 

dO 

a9 

c57B 

3 

26 

68 

29 

OB 

dO 

Oc 

a2 

04 

le 

c5B0 

3 

20 

a3 

ca 

a9 

B2 

Bd 

fd 

cf 

86 

c58B 

3 

dO 

d2 

ae 

02 

60 

eO 

07 

fO 

bB 

c590 

3 

cb 

eB 

8c 

02 

60 

a9 

01 

20 

4b 

c59B 

3 

79 

c7 

20 

83 

c7 

fO 

bd 

68 

39 

cSaO 

3 

ae 

02 

60 

eO 

01 

fO 

b5 

ca 

B7 

c5aB 

3 

Be 

02 

60 

a9 

01 

20 

79 

c7 

Ob 

c5bO 

3 

20 

83 

c7 

fO 

a7 

20 

■3 

c5 

38 

c5bB 

3 

a2 

ff 

cB 

eB 

b9 

f 4 

c5 

fO 

eS 

c5c0 

3 

05 

9d 

65 

cf 

dO 

f 4 

a2 

ff 

26 

c5cB 

3 

c8 

eB 

b9 

f 4 

c5 

fO 

05 

9d 

44 

cSdO 

3 

Bd 

cf 

dO 

f 4 

a2 

ff 

cB 

eB 

37 

c5dB 

3 

b9 

f 4 

c5 

fO 

05 

9d 

b5 

cf 

4e 

c5e0 

3 

dO 

f 4 

60 

a9 

20 

a2 

09 

9d 

ee 

c5eB 

3 

65 

cf 

9d 

Bd 

cf 

9d 

bS 

cf 

ae 

c5f 0 

3 

ca 

10 

f 4 

60 

20 

20 

13 

Of 

79 

c5f 8 

3 

12 

12 

19 

OO 

00 

Oe 

Of 

20 

47 

c600 


03 

OB 

01 

Oe 

03 

05 

00 

07 

70 

c60B 


01 

Od 

05 

20 

Of 

16 

05 

12 

af 

c610 


lf 

00 

00 

20 

20 

12 

05 

Od 

f 4 

C61B 


09 

13 

OO 

07 

01 

Od 

05 

20 

59 

c620 


Of 

16 

05 

12 

lf 

00 

00 

19 

e2 

C62B 


Of 

15 

20 

Oc 

Of 

Of 

13 

05 

Ob 

c630 


20 

00 

07 

01 

Od 

05 

20 

Of 

ca 

C638 


16 

05 

12 

lf 

00 

OO 

20 

19 

ec 

c640 


Of 

15 

20 

17 

Of 

Oe 

00 

03 

2c 

c648 


Of 

Od 

10 

15 

14 

09 

Oe 

07 

54 

c650 


OO 

OO 

20 

Od 

Of 

16 

05 

3a 

24 

c658 


00 

00 

OO 

00 

00 


Od 

af 

C660 


05 

20 

Of 

16 

05 

00 

59 

c668 


OO 

a9 

15 

a2 

c2 

B5 

30 

B6 

fd 

C670 


31 

a9 

40 

Bd 

lc 

60 

Oa 

Bd 

40 

c678 


lb 

60 

a9 

00 

85 

32 

a9 

cc 

58 

C680 


85 

33 

a9 

00 

85 

34 

a9 

dB 

5c 

c6BB 


85 

35 

aO 

00 

bl 

30 

dO 

01 

b2 

c690 


60 

2c 

lb 

60 

dO 

lf 

Od 

ld 

4e 

c69B 


60 

Bd 

la 

60 

91 

32 

ad 

le 

ef 

c6a0 


60 

91 

34 

e6 

34 

e6 

32 

dO 

9B 

c6aB 


04 

e6 

35 

e6 

33 

e6 

30 

dO 

16 

c6b0 


db 

e6 

31 

dO 

d7 

2c 

lc 

60 

75 

c6bB 


dO 

16 

48 

29 

Of 

8d 

le 

60 

61 

c6c0 


68 

Oa 

Oa 

29 

eO 

Bd 

ld 

60 

83 

c6cB 


■6 

30 

dO 

CO 

e& 

37 

dO 

bc 

c7 

c6d0 


29 

3f 

aa 

ad 

la 

60 

91 

32 

43 

c6dB 


ad 

le 

60 

91 

34 

*6 

54 

e6 

48 

c6e0 


32 

dO 

04 

e6 

3? 

e6 

33 

ca 

4S 

c6eB 


dO 

e9 

e6 

30 

dO 

9e 

®6 

31 

6c 

c6f 0 


dO 

9a 

a9 

00 

a2 

07 

aO 

06 

69 

c6f 8 


ea 

20 

89 

c7 

B8 

dO 

f 9 

ca 

da 

C700 


dO 

f 4 

60 

a9 

06 

Bd 

01 

60 

29 

C70B 


ad 

01 

60 

09 

80 

20 

19 

c7 

6c 

c710 


ce 

01 

60 

10 

f3 

ee 

01 

60 

f 4 

c71B 


60 

ae 

IS 

60 

eO 

01 

fO 

f 9 

ee 

c720 


eO 

ef 

fO 

f 5 

Bd 

la 

60 

Oa 

32 

c72B 


Oa 

6d 

la 

60 

Oa 

1B 

67 

60 

43 

c730 


B5 

36 

a9 

00 

69 

c3 

85 

37 

74 

C73B 


ad 

01 

60 

Oa 

Oa 

6d 

01 

60 

90 

C740 


a2 

00 

B6 

33 

Oa 

Oa 

Oa 

Oa 

1B 

c74B 


26 

33 

i-6 

33 

69 

35 

aa 

32 

e3 

c750 


85 

34 

a5 

33 

69 

cc 

85 

33 

39 

C758 


69 

Oc 

BS 

35 

a2 

00 

2c 

la 

de 

c760 


60 

10 

02 

a2 

07 

aO 

09 

bl 

9a 

c76B 


36 

2c 

la 

60 

30 

02 

07 

40 

ff 

c770 


91 

32 

Ba 

71 

34 

aa 

10 

ef 

97 

c778 


60 

Bd 

05 

60 

Be 

18 

60 

Bc 

30 

c780 


19 

60 

60 

ad 

05 

60 

dO 

fb 

26 

c7B8 


60 

Bd 

la 

60 

Ba 

48 

9B 

48 

lf 

c790 


ca 

8a 

Oa 

Oa 

79 

de 

c7 

85 

Oc 

c798 


32 

85 

34 

a9 

cc 

79 

d6 

c7 

53 

c7a0 


85 

33 

69 

Oc 

85 

35 

aO 

00 

lf 

c7a8 


ae 

la 

60 

bd 

e3 

c7 

20 

cf 

dO 

c7b0 


c7 

cB 

bd 

e7 

c7 

20 

cf 

c7 

94 

c7b8 


aO 

28 

bd 

eb 

c7 

20 

cf 

c7 

a5 

c7c0 


c8 

bd 

cf 

c7 

20 

cf 

c7 

68 

cc 

c7c8 


aB 

68 

aa 

ad 

la 

60 

60 

91 

4e 

c7d0 


32 

bd 

f 3 

c7 

91 

34 

60 

03 

19 

c7dB 


02 

02 

02 

01 

01 

71 

f 7 

Bl 

03 

c7eO 


09 

91 

17 

e5 

a9 

a9 

>9 

e6 

11 

c7eB 


aa 

aa 

aa 

e7 

ab 

ab 

ab 

eS 

27 


c7f 0 


ac 

ac 

ac 

06 

07 

02 

01 

ad 

be 

c7f B 


17 

dO 

Bd 

19 

dO 

29 

01 

dO 

fc 

cBOO 


03 

4c 

7e 

ea 

ad 

12 

dO 

c9 

6B 

cBOB 


f 8 

90 

20 

dO 

ii 




54 

CB10 


ea 

a9 

fe 

Bd 

12 

dO 

a9 

00 

Be 

CB1B 


Bd 

20 

dO 

4c 

01 

ea 

a9 

00 

89 

C02O 


Bd 

12 

dO 

a9 

09 

8d 

20 

dO 

3f 

cB2B 


4c 

Bl 

ea 

a9 

fB 

Bd 

12 

dO 

Oa 

cB30 


a9 

Oe 

Bd 

20 

dO 

2c 

14 

60 

c7 

c83B 


30 

12 

ad 

OO 

de 

Bd 

13 

60 

24 

C04O 


4d 

12 

60 

2d 

13 

60 

Od 

12 

el 

cB4B 


60 

Bd 

12 

60 

ad 

05 

60 

dO 

26 

c8S0 


03 

4c 

81 

ea 

10 

03 

4c 

07 

Bf 

c85B 


c9 

c9 

01 

dO 

14 

20 

f 7 

c9 

16 

c860 


a9 

45 

8d 

Of 

dO 

20 

21 

ca 

19 

cB6B 


a2 

00 

Ba 

20 

BB 

ca 

4c 

ff 

Cl 

cB70 


cB 

c9 

02 

dO 

13 

20 

06 

ca 

97 

C07B 


20 

21 

ca 

ce 

Of 

dO 

a2 

07 

c5 

c8B0 


a7 

01 

20 

SB 

ca 

4c 

ff 

cB 

64 

cBBB 


c7 

03 

dO 

21 

20 

06 

ca 

ad 

e4 

c890 


17 

60 

Bd 

Of 

dO 

ae 

18 

60 

cO 

cB9B 


ac 

19 

60 

a9 

00 

20 

09 

C7 

d5 

cBaO 


20 

21 

ca 

a9 

02 

a2 

07 

20 

ca 

cBaB 


88 

ca 

4c 

ff 

cB 

c9 

04 

dO 

35 

cBbO 


14 

ad 

18 

60 

Bd 

07 

60 

ad 

ab 

cBbB 


17 

60 

Bd 

20 

60 

a9 

Oa 

Bd 

ff 

cBcO 


15 

60 

4c 

ff 

cB 

c9 

05 

dO 

a9 

cBcS 


Od 

a7 

Oa 

Bd 

15 

60 

a9 

04 

el 

cBdO 


Bd 

05 

60 

4c 

ff 

cB 

c7 

06 

fb 

cBdB 


dO 

22 

ad 

Oa 

60 

fO 

04 

ad 

5f 

c8e0 


04 

60 

2c 

a7 

00 

20 

40 

ca 

ec 

c8e8 


a7 

00 

Bd 

Oa 

60 

Bd 

Od 

60 

9d 

cBfO 


Bd 

Oe 

60 

8d 

Of 

60 

Bd 

15 

a2 

c8f B 


60 

Bd 

05 

60 

4c 

Bl 

ea 

ad 

44 

c900 


05 

60 

09 

00 

Bd 

05 

60 

ad 

66 

c90B 


05 

60 

c9 

81 

dO 

4e 

ad 

16 

42 

c910 


60 

cd 

Oc 

dO 

dO 

lc 

2c 

lf 

51 

c918 


60 

30 

Oa 

a7 

82 

Bd 

fd 

Cf 

74 

C920 


a2 

04 

20 

a3 

ca 

a9 

OO 

Bd 

56 

c92B 


05 

60 

a2 

12 

20 

a3 

ca 

4c 

2b 

c930 


01 

ea 

bO 

14 

a9 

B3 

Bd 

fd 

be 

c938 


cf 

ce 

Oc 

dO 

ce 

Oe 

dO 

ce 

ca 

c940 


Oc 

dO 

ce 

Oe 

dO 

4c 

Bl 

ea 

75 

c948 


ee 

Oc 

dO 

ee 

Oe 

dO 

ee 

Oc 

B9 

c950 


dO 

ee 

Oe 

dO 

a7 

84 

Bd 

fd 

26 

c950 


cf 

4c 

Bl 

ea 

c9 

B2 

dO 

43 

B5 

c960 


ad 

17 

60 

cd 

Of 

dO 

dO 

2f 

84 

c968 


a7 

01 

Bd 

05 

60 

ae 

18 

60 

32 

c970 


ac 

19 

60 

ad 

04 

60 

20 

87 

4d 

c97B 


c7 

a9 

OB 

Bd 

18 

60 

a9 

00 

f 3 

c980 


Bd 

04 

60 

a2 

Ob 

20 

a3 

ca 

52 

c788 


a2 

12 

20 

a3 

ca 

a9 

03 

a2 

fb 

c990 


Oe 

20 

B8 

ca 

4c 

Bl 

ea 

ee 

B4 

c998 


Of 

dO 

ee 

Of 

dO 

ee 

Of 

dO 

Of 

c9aO 


4c 

81 

ea 

c9 

B3 

dO 

2d 

ae 

71 

c9a0 


Of 

dO 

eO 

45 

dO 

le 

a9 

01 

a7 

c9b0 


Bd 

05 

60 

a9 

OB 

8d 

1B 

60 

lb 

c9bB 


a2 

Ob 

20 

a3 

ca 

a2 

12 

20 

a7 

c9c0 


a3 

ca 

a9 

04 

a2 

Oe 

20 

BB 

df 

c9c8 


ca 

4c 

Bl 

ea 

ca 

ca 

Be 

Of 

dl 

c9d0 


dO 

4c 

Bl 

ea 

c9 

84 

dO 

lc 

cO 

c9dB 


ce 

15 

60 

dO 

06 

ad 

04 

60 

02 

c9e0 


4c 

fl 

c9 

ae 

15 

60 

eO 

ee 

23 

c9e8 


dO 

Oa 

a9 

Oa 

0d 

15 

60 

a9 

bf 

c9f 0 


00 

20 

40 

ca 

4c 

81 

ea 

ad 

42 

c9f 8 


10 

60 

Oa 

Oa 

Oa 

Oa 

Oa 

38 

8 e 

caOO 


e9 

03 

Bd 

16 

60 

60 

ad 

19 

B3 

caOB 


60 

dO 

06 

a7 

45 

Bd 

17 

60 

65 

calO 


60 

Oa 

6d 

19 

60 

Oa 

Oa 

Oa 

B6 

calB 


49 

ff 

3B 

e9 

Oa 

Bd 

17 

60 

d6 

ca20 


60 

ae 

04 

60 

ad 

15 

dO 

09 

bd 

ca2B 


BO 

Bd 

15 

dO 

bd 

3d 

ca 

Bd 

da 

ca30 


2e 

dO 

dO 

08 

ad 

15 

dO 

27 

15 

ca3B 


7f 

Bd 

15 

dO 

60 

00 

07 

02 

03 

ca40 


ae 

07 

60 

ac 

20 

60 

20 

B9 

b9 

ca4B 


c7 

ae 

Oa 

60 

fO 

39 

ac 

21 

c3 

ca50 


60 

20 

89 

c7 

ae 

Ob 

60 

ac 

3a 

ca5B 


22 

60 

20 

09 

c7 

ae 

Oc 

60 

c6 

ca60 


ac 

23 

60 

20 

B9 

c7 

ae 

Od 

66 

ca6B 


60 

fO 

lc 

ac 

24 

60 

20 

B7 

b6 

ca70 


c7 

ae 

Oe 

60 

fO 

11 

ac 

25 

b3 

ca7B 


60 

20 

89 

c7 

ae 

Of 

60 

fO 

Oa 

caBO 


06 

ac 

26 

60 

20 

89 

c7 

60 

•0 

caBB 


Oa 

Oa 

Oa 

69 

ac 

85 

30 

a9 

52 

ca90 


00 

67 

ca 

85 

31 

aO 

00 

bl 

24 

ca9B 


30 

9d 

00 

d4 

eB 

cB 

cO 

07 

17 

caaO 


dO 

f 5 

60 

bd 

OO 

d4 

29 

f e 

84 

caaB 


9d 

OO 

d4 

60 

00 

05 

00 

00 

af 

cabO 


21 

00 

4a 

00 

Oa 

Oa 

00 

00 

55 

cabB 


11 

Ba 

Of 

00 

00 

OB 

OO 

00 

13 

cacO 


Bl 

af 

fO 

00 

00 

14 

00 

00 

f 6 

cacB 


01 

OB 

Oc 

00 

00 

50 

00 

00 

d3 

cadO 

: 

21 

08 

05 

00 

ff 

00 

00 

00 

37 


Listing 4. Die Grafikroutinen 
von Connect 4 (Schluß) 


12 


SONDERHEFT 17 


33a? 













C64 


STRATEGIE-SPIELE 


Name : c4.*e0 eOOO e200 


eOOO 

: 

85 

56 

20 

Of 

bc 

a5 

61 

c9 

ac 

eOOB 

s 

BB 

90 

03 

20 

d4 

ba 

20 

cc 

da 

eOlO 

s 

bc 

a5 

07 

18 

69 

81 

fO 

f 3 

b2 

e018 

8 

38 

e9 

01 

48 

a2 

05 

b5 

69 

8a 

eO20 

: 

b4 

61 

95 

61 

94 

69 

ca 

10 

f 6 

e028 

: 

f5 

a5 

56 

85 

70 

20 

53 

b8 

fd 

e030 

: 

20 

b4 

bf 

a9 

c4 

aO 

bf 

20 

60 

e03B 

8 

59 

eO 

a9 

00 

85 

6f 

68 

20 

21 

e040 

8 

b9 

ba 

60 

85 

71 

84 

72 

20 

64 

e048 

8 

ca 

bb 

a9 

57 

20 

28 

ba 

20 

b4 

e050 

: 

5d 

eO 

a9 

57 

aO 

00 

4c 

28 

fe 

e05B 

: 

ba 

85 

71 

B4 

72 

20 

c7 

bb 

80 

e060 

3 

bl 

71 

85 

67 

a4 

71 

c8 

98 

42 

e068 

8 

dO 

02 

e6 

72 

85 

71 

a4 

72 

9d 

e070 

3 

20 

28 

ba 

a5 

71 

a4 

72 

18 

3e 

e07B 

8 

69 

05 

90 

01 

c8 

85 

71 

B4 

30 

eOBO 

3 

72 

20 

67 

b8 

a9 

5c 

aO 

00 

f3 

eOBB 

8 

c6 

67 

dO 

e4 

60 

98 

35 

44 

fb 

e090 

3 

7a 

00 

68 

28 

bl 

46 

00 

20 

b7 

e098 

8 

2b 

bc 

30 

37 

dO 

20 

20 

f 3 

Bb 

eOaO 

8 

ff 

B6 

22 

84 

23 

aO 

04 

bl 

a6 

eOaB 

8 

22 

B5 

62 

CB 

bl 

22 

85 

64 

49 


eObO 

s 

aO 

OB 

bl 

22 

85 

63 

c8 

bl 

ff 

eObB 

3 

22 

BS 

65 

4c 

e3 

eO 

a9 

Bb 

83 

eOcO 

: 

aO 

00 

20 

a2 

bb 

a9 

Bd 

aO 

3d 

eOcB 

3 

eO 

20 

28 

ba 

tt 9 

92 

aO 

eO 

8d 

eOdO 

3 

20 

67 

bB 

a6 

65 

aS 

62 

85 

bf 

eOdB 

8 

65 

86 

62 

a6 

63 

a5 

64 

85 

ee 

eOeO 

3 

63 

86 

64 

a9 

OO 

85 

66 

a5 

e6 

eOeB 

8 

61 

BS 

70 

a9 

BO 

B5 

61 

20 

57 

eOfO 

3 

d7 

bS 

a2 

Bb 

aO 

OO 

4c 

d4 

22 

eOf 8 

3 

bb 

aa 

dO 

02 

a2 

le 

4c 

37 

37 

elOO 

3 

a4 

48 

ad 

94 

02 

fO 

01 

aa 

c7 

elOB 

3 

68 

4c 

ba 

ff 

20 

d2 

ff 

bO 

3f 

ellO 

: 

e8 

60 

20 

cf 

ff 

4c 

75 

fl 

52 

el 18 

3 

20 

ad 

e4 

bO 

de 

60 

20 

c6 

3d 

el20 

3 

ff 

bO 

d6 

60 

20 

e4 

ff 

bO 

c3 

el28 

3 

dO 

60 

4c 

be 

f 2 

20 

f 7 

b7 

93 

el 30 

8 

a9 

el 

48 

a9 

46 

48 

ad 

Of 

Bd 

el38 

3 

03 

48 

ad 

Oc 

03 

ae 

Od 

03 

2c 

el40 

8 

ac 

Oe 

03 

28 

6c 

14 

00 

OB 

31 

Gl 48 

: 

Bd 

Oc 

03 

Be 

Od 

03 

Bc 

Oe 

a5 

Gl50 

3 

03 

68 

Bd 

Of 

03 

60 

20 

d4 

2a 

el58 

3 

el 

a6 

2d 

a4 

2e 

a9 

2b 

20 

B9 

G160 

3 

dB 

ff 

bO 

95 

60 

a9 

01 

2c 

c6 

el6B 

3 

a9 

00 

85 

Oa 

20 

d4 

■1 

a5 

2f 


el70 

: 

Oa 

a6 

2b 

a4 

2c 

20 

d5 

ff 

48 

el78 

3 

bO 

57 

a5 

Oa 

fO 

17 

a2 

lc 

09 

elBO 

: 

20 

b? 

ff 

29 

10 

dO 

17 

aS 

dO 

elBB 

3 

7a 

c9 

02 

fO 

07 

a9 

64 

aO 

16 

el90 

3 

a3 

4c 

le 

ab 

60 

20 

b7 

ff 

3c 

el98 

3 

29 

bf 

fO 

Ob 

■2 

ld 

4c 

37 

30 

elaO 

3 

a4 

a5 

7b 

c9 

02 

dO 

Oe 

4c 

a6 

elaB 

3 

Be 

f5 

2m 

a9 

76 

aO 

a3 

20 

2d 

elbO 

3 

le 

ab 

4c 

2a 

aS 

20 

Se 

a6 

df 

elbB 

3 

20 

33 

a5 

4c 

77 

a6 

20 

19 

c4 

elcO 

8 

e2 

20 

cO 

ff 

bO 

Ob 

60 

20 

07 

elcB 

3 

19 

e2 

a5 

49 

20 

c3 

ff 

90 

26 

eldO 

3 

c3 

4c 

f 9 

eO 

a9 

00 

20 

bd 

ea 

eldB 

3 

ff 

a2 

08 

aO 

01 

20 

01 

el 

17 

eleO 

8 

20 

06 

e2 

20 

57 

e2 

20 

4a 

62 

eleB 

3 

fl 

20 

00 

e2 

aO 

00 

B6 

49 

fc 

elfO 

3 

20 

ba 

ff 

20 

4a 

fl 

20 

00 

26 

elf 8 

3 

e2 

Ba 

a8 

a6 

49 

4c 

ba 

ff 

00 


Listing 5. 

Die Sprite-Daten von Connect 4 


Name 

3 

c4. 

tab 




2000 2242 

20c8 

S 

33 

01 

01 

01 

6a 

02 

01 

01 

99 

21a0 

3 

55 

01 

02 

01 

la 

05 

01 

01 

e6 












20d0 













55 

01 

02 

01 

la 

Od 

01 

01 

2f 
























2000 

3 

44 

01 

01 

01 

02 

01 

01 

01 

54 

20d8 

: 

66 

01 

01 

03 

6a 

02 

02 

03 

24 

21b0 

3 

66 

01 

01 

15 

la 

01 

04 

03 

3a 

2008 

3 

44 

01 

01 

01 

06 

01 

01 

01 

9c 

20e0 

8 

66 

01 

01 

03 

6a 

02 

04 

03 

34 

21bB 

: 

33 

01 

01 

03 

6a 

14 

05 

06 

74 

2010 

3 

44 

01 

01 

01 

Oa 

01 

01 

01 

f?4 

20e8 

3 

66 

01 

01 

03 

6a 

02 

Oc 

03 

5d 

21c0 

3 

33 

01 

01 

03 

6a 

24 

03 

06 

f 4 

2018 

3 

34 

01 

01 

01 

la 

01 

01 

01 

dd 

20f 0 

3 

66 

01 

01 

03 

6a 

02 

14 

03 

B5 

21cB 

3 

55 

01 

01 

02 

6a 

05 

01 

01 

f 3 

2020 

3 

44 

01 

01 

01 

2a 

01 

01 

01 

f 6 

20f 8 

3 

66 

01 

01 

03 

6a 

02 

34 

03 

Od 

21d0 

3 

55 

01 

01 

02 

6a 

Od 

01 

01 

3c 

2028 

• 

27 

01 

01 

01 

6a 

01 

01 

01 

e5 

2100 

: 

33 

01 

03 

05 

6a 

02 

54 

03 

23 

21dB 

3 

22 

01 

01 

02 

6a 

15 

01 

01 

51 

2030 

3 

75 

01 

01 

01 

6a 

01 

02 

01 

3f 

210B 

3 

72 

01 

01 

01 

6a 

01 

01 

02 

12 

21eO 

3 

33 

03 

01 

02 

6a 

15 

01 

01 

6b 

2038 

3 

33 

01 

01 

03 

6a 

01 

02 

01 

45 

2110 

3 

55 

01 

01 

01 

6a 

03 

01 

02 

Od 

21e8 

3 

33 

03 

03 

04 

6a 

15 

01 

01 

34 

2040 

3 

03 

01 

01 

05 

6a 

01 

02 

01 

5e 

2118 

3 

55 

01 

01 

01 

6a 

Od 

01 

02 

65 

21f 0 

3 

77 

01 

01 

06 

6a 

15 

01 

01 

3e 

204B 

: 

33 

01 

01 

Od 

6a 

01 

02 

01 

97 

2120 

• 

22 

01 

01 

01 

6a 

35 

01 

02 

7c 

21f 8 

3 

77 

01 

01 

06 

6a 

15 

01 

02 

48 

2050 

3 

11 

01 

01 

15 

6a 

01 

02 

03 

82 

2128 

: 

77 

03 

02 

01 

6a 

35 

01 

02 

la 

2200 

3 

77 

01 

01 

06 

6a 

15 

01 

06 

58 

2058 

3 

55 

01 

01 

01 

6a 

15 

02 

01 

eB 

2130 

• 

22 

01 

01 

01 

6a 

15 

01 

06 

93 

2208 

3 

44 

01 

01 

01 

Oa 

03 

01 

01 

ec 

2060 

3 

33 

06 

01 

15 

6a 

01 

02 

03 

36 

2138 

3 

55 

03 

02 

01 

6a 

15 

01 

06 

Of 

2210 

3 

44 

01 

01 

01 

12 

07 

01 

01 

95 

2068 


55 

01 

01 

01 

6a 

Od 

02 

01 

b7 

2140 

- 

66 

01 

01 

03 

6a 

01 

01 

02 

7e 

2218 

3 

11 

01 

01 

01 

62 

07 

01 

01 

6f 

2070 

3 

55 

01 

01 

01 

6a 

03 

02 

01 

6f 

2148 

: 

55 

01 

01 

03 

6a 

03 

02 

02 

89 

2220 

3 

55 

01 

01 

07 

62 

03 

01 

02 

5d 

2078 

• 

55 

01 

01 

01 

6a 

05 

02 

01 

87 

2150 

: 

55 


01 

03 6a 


02 

e2 

2228 

: 

55 

01 

01 

07 

62 

Od 

01 

02 

b6 

2080 

• 

55 

01 

01 

01 

6a 

35 

02 

01 

11 

2158 

s 

77 

01 01 03 6a 

02 

4d 

2230 

3 

33 

02 

01 

03 

62 

07 

01 

01 

69 

2088 

s 

62 

01 

01 

01 

6a 

55 

02 

01 

27 

2160 

; 

33 

01 

01 

03 

6a 

15 

02 

06 

18 

2238 

3 

00 

ff 

fe 

ff 

00 

ff 

00 

42 

7c 

2090 

3 

44 

01 

01 

01 

01 

01 

01 

01 

d3 

2168 

; 

33 

01 

03 

05 

6a 

15 

02 

06 

el 

2240 

3 

00 

ff 

41 

56 

45 

06 

56 

45 

c3 

2098 

3 

55 

01 

01 

01 

01 

02 

01 

01 

f 5 

2170 

: 

22 

01 

03 

01 

6a 

15 

02 

02 

4f 












20a0 

3 

55 

01 

01 

01 

01 

06 

01 

01 

ld 

2178 

: 

55 

01 

02 

01 

6a 

03 

01 

01 

b3 












20a8 

3 

55 

01 

01 

01 

01 

Oa 

01 

01 

45 

21 BO 

3 

55 

01 

02 

01 

6a 

Od 

01 

01 

Oc 

Listing 6. 









20b0 
20b 8 

8 

53 

55 

01 

01 

01 

01 

01 

01 

01 

01 

la 

2a 

01 

01 

01 

01 

cb 

56 

2188 

2190 

3 

77 

33 

03 

01 

02 

01 

01 

01 

6a 

la 

15 

01 

01 

02 

01 

01 

77 

58 

Die Eröffnungsbibliothek, die eben 

20c 0 

3 

34 

01 

01 

01 

01 

6a 

01 

01 

3f 

2198 

3 

55 

01 

02 

01 

la 

03 

01 

01 

ce 

falls mit dem MSE einzugeben ist 


Xiangqi, Sdiadi einmal anders 


Reizt Sie die Abwechslung beim Schach? Dann 
ist Xiangqi das Richtige für Sie. Mit einer anderen 
Figurenzusammenstellung und veränderten Zug¬ 
regeln stellt Sie Xiangqi vor neue Denkaufgaben. 

S chach ist ein traditionelles Strategiespiel. Fast jeder 
kennt es. Aber sicherlich haben die meisten noch nicht 
gewußt, daß die Chinesen ein anderes Schachspiel 
haben. Es ist ein Strategiespiel mit 2x16 Figuren, ähnlich 
dem europäischen Schach. Die Figuren sind jedoch etwas 
anders. Es sind 2 Türme, 2 Springer, 2 Kanonen, 2 Läufer, 
2 Wächter, 1 König und 5 Bauern. Sie unterliegen dann 
auch anderen Zugregeln. Vor allem das Schlagverhalten 
der Kanonen bereitet am Anfang noch viel Kopfzerbrechen. 
Ebenso unterscheidet sich das Schachbrett (Bild 1) von der 
traditionellen Version. Es besteht aus einer 9 x 10 Matrix 
(Bild 2). 

Die Figuren werden auf den Schnittpunkten der Linien 
gezogen (Zugregeln siehe Bild 3). In der Mitte schneidet ein 
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Bild 1. Bereits in den ersten Zügen entbrennt ein heftiger 
Kampf: »Xiangqi«, Schach auf Chinesisch. 
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STRATEGIE-SPIELE 


C64 


Fluß quer über das Brett und trennt die Territorien der Spie¬ 
ler. Die Standpunkte für die einzelnen Figuren sind bei 
Xiangqi viel zahlreicher als beim europäischen Schach, so 
daß die Zugmöglichkeiten auch wesentlich größer sind 
(beim ersten Zug gibt es statt 20, wie im europäischen 
Schach, 44 Möglichkeiten). Dadurch wird auch die Bedenk¬ 
zeit für den Computer enorm erhöht. 

Programmbeschreibung: 

Das Programm (Listing 1) belegt den Speicherbereich 
$86C4 bis $9600. Nach dem Laden wird es mit SYS 34500 
gestartet und mit dem Joystick (Port 1) gesteuert. Zunächst 
erscheinen die Figuren in chinesisch. Durch Betätigen der 
Taste < Fl > kann man die Symbol-Darstellung der Figu¬ 
ren wählen. Durch < RETURN > werden alle Figuren wie¬ 
der in die Ausgangspositionen zurückgestellt. Das funktio¬ 
niert auch während des Spiels. Falls man die Zugregeln 
noch nicht gut beherrscht, braucht man nur mit dem Cursor 
auf die entsprechende Figur zu fahren und <F7> zu 
drücken. Es werden dann alle möglichen Zielpositionen auf 
dem Bildschirm angezeigt. 

Ansonsten sind die Spielregeln wie beim allseits bekann¬ 
ten, europäischen Schach. Xiangqi dürfte wohl einige 
neue, Impulse in die Spielewelt einbringen, zumal wir in 
Deutschland noch kein entsprechendes Spiel als Brettspiel 
finden konnten. Da wir Anfragen dazu erwarten, wären wir 
dankbar, wenn Leser, die eine Bezugsquelle für solch ein 
Brettspiel gefunden haben, diese der Redaktion mitteilen 
würden. Abschließend bleibt nur noch, Ihnen viel Spaß mit 
Xiangqi zu wünschen. 

(Hua Phuoc Can/og) 



Name : xiangqi B6c4 9600 


86c4 

s 

4c 

97 

8c 

BO 

80 

80 

80 

80 

le 

86c c 

e 

80 

80 

80 

80 

BO 

80 

80 

80 

cc 

86d4 

3 

80 

80 

80 

80 

80 

80 

80 

80 

d4 

86dc 

3 

80 

80 

96 

95 

b2 

93 

97 

93 

42 

B6e4 

3 

b2 

95 

96 

80 

80 

10 

10 

30 

40 

B6ec 

: 

10 

10 

10 

30 

10 

10 

BO 

BO 

93 

86f 4 

3 

10 

94 

30 

10 

10 

10 

30 

94 

cB 

86 fc 

3 

10 

80 

80 

dl 

10 

bl 

30 

fl 

da 

8704 

8 

30 

bl 

10 

dl 

80 

80 

10 

10 

b8 

870c 

3 

10 

10 

10 

10 

10 

10 

10 

80 

ed 

B714 

3 

80 

00 

00 

00 

00 

00 

00 

OO 

95 

871c 

3 

00 

00 

80 

BO 

41 

00 

21 

20 

25 

8724 

3 

61 

20 

21 

00 

41 

80 

80 

00 

f 8 

872c 

3 

04 

20 

00 

00 

00 

20 

04 

00 

52 

8734 

3 

80 

80 

00 

oo 

20 

00 

00 

00 

f 7 

073c 

8 

20 

00 

00 

80 

80 

06 

05 

22 

fd 

8744 

3 

03 

07 

03 

22 

05 

06 

80 

80 

54 

B74c 

3 

80 

BO 

80 

80 

80 

80 

m 

o 

80 

4c 

8754 

3 

80 

80 

80 

80 

80 

80 

80 

BO 

54 

875c 

3 

80 

80 

80 

80 

80 

f5 

01 

ff 

OB 

8764 

3 

Oc 

fb 

f4 

Oa 

1B 

ec 

e8 

14 

le 

B76c 

1 

Oc 

tb 

f 4 

Oa 

ff 

Ob 

01 

f 5 

ba 

8774 

3 

Ob 

01 

01 

in 

H- 

f 5 

ff 

ff 

Ob 

74 

877c 

3 

17 

Od 

t7 

ab 

•9 

f 3 

09 

15 

22 

8784 

3 

01 

02 

03 

07 

06 

Oe 

Of 

07 

43 

878c 

8 

08 

20 

40 

82 

91 

fO 

91 

24 

34 

8794 

3 

92 

4a 

92 

89 

92 

bB 

92 

e5 

26 

B79c 

3 

92 

00 

00 

Of 

3f 

fS 

f 7 

f 5 

80 
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3 

f7 

80 

BO 

de 

df 

7f 

ff 

55 

3c 
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3 

f7 

f 7 

17 

dS 

fd 

17 

Of 

00 

2c 
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3 

00 

f 7 

f 7 

55 

df 

f5 

fc 

80 

fb 
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8 

80 

00 

00 

Of 

37 

f 7 

dS 

f 7 

99 
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3 

d5 

80 

80 

fc 

d5 

dd 

dd 

d5 

08 
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3 

dd 
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d7 
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Of 
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7f 
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Of 

37 

d7 
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d5 

9c 
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3 
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80 
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7c 

55 
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dS 

f 5 

6f 
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3 

d5 

f 7 

dd 

dd 

dd 

ld 

Of 

00 

13 

8814 

8 

00 

dd 

df 

df 

dd 

d5 

fc 

BO 

78 
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3 

80 

00 

00 

05 

37 

f 5 

f 7 
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2c 

B824 

3 

t7 

80 

BO 

5c 

7f 

5f 

7t 

5f 

b7 

882c 

8 

7t 
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ff 

dd 
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3f 

Of 

OO 

17 

B834 

3 

00 

57 

f 7 
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77 

f 7 

de 

80 

88 

BB3c 

3 

80 

00 

00 

Of 

35 

ff 

f 5 

f 7 

b9 

B844 

3 

f5 

80 

80 

7c 

57 
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57 

77 

•7 
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57 

f7 
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H- 

ff f5 
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00 

b2 
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: 

00 

77 

57 

7f 

57 

7t 

7c 

BO 

3a 
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3 

BO 

00 

00 

05 

lf 

d5 

dd 

dd 

51 

8864 

3 

dS 

80 

80 

f 4 

f 7 

d5 

d5 

d5 

69 

886c 


d5 

df 

d5 

dd 

dd 

15 

Of 

00 

25 

8874 

Z 

00 

d5 

f 7 

f 7 

f 7 

f 7 

fc 

BO 

90 
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95 
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Sa 
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3 

91 
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aO 

*- 

CO 

b9 

b9 

9a 

c9 

99 

95c c 

3 

97 

fO 

03 

88 

10 

f 6 

18 

98 

f 8 

95d4 

8 

69 

Ob 

aB 

b9 

b9 

9a 

c9 

80 

cO 

95dc 

8 

fO 

09 

2c 

Bb 

B7 

fO 

nf 

c9 

21 

95b4 

3 

07 

fO 

01 

1 B 

60 

70 

48 

a9 

e6 

9Sbc 

8 

00 

a4 

aS 

10 

02 

a9 

ff 

20 

57 

95f 4 

8 

91 

b3 

20 

dd 

bd 

20 

le 

ab 

cf 

95f c 

8 

68 

aB 

60 

00 

33 

2a 

aO 

aO 

39 


Listing 1. »XIANGQI« (Schluß) 


Figur 

Vektor-Darstellung 

Grafik-Darstellung 

Besonderheit 

1 

Turm 

1 

1 0 1 (± n | 

\ ±n l 1 0 ) 

I 

I 


* 

Springer 

«ÄMii «tvhi 



■P 

Kanone 

(£.) («r 

l 

l 

Beim Schlagen muß eine Figur zwischen 
dem Standpunkt und dem Zielpunkt 
stehen 

CX © 

■ 

o 

Läufe 

i 

r 

«V)-(V» «iHi» 

\ f 

X 

X \ 

darf den Fluß nicht überqueren 

t 

Wächter 

(ä) 

X 

nur im Schloßbereich 

Könic 

r 

1 0 1 I* 1 ! 

U 1 / \°l 

CX-|— 

nur im Schloßbereich 

■ 

i 

Baue 


( 0 ) 

I 

Der Bauer darf abbiegen, wenn er sich im 
gegnerischen Territorium befindet 

| cx— i— ►o 


Bild 3. Die Figuren und ihre Zugmöglichkeiten 

■■ 
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The Cube: Knobeln in der 
dritten Dimension 


»The Cube« ist ein einzigartiges Knobelspiel von 
hohem Schwierigkeitsgrad. An den Spieler wer¬ 
den hohe Ansprüche in bezug auf das räumliche 
Vorstellungsvermögen, eine voraussehende 
Denkweise und große Geduld gestellt. Die 
grauen Gehirnzellen sind gefragt! 


D 


as Ziel dieses Spiels ist es, einen Würfel aus sechs 
| unterschiedlich gestalteten Teilen zusammenzuset¬ 
zen. Diesen Würfel hat man sich aus 3x3x3 »Elemen- 
tarwürfelchen« aufgebaut vorzustellen (Bild). Aus diesen 
Elementarwürfelchen bestehen auch die einzelnen Teile - 
eine äußerst knifflige Angelegenheit, obwohl es verschie¬ 
dene Lösungsmöglichkeiten gibt! Insgesamt sind drei 
Level zu bewältigen. 

Der Lösungsweg ist aus dem Programm nicht ersichtlich. 
Wer will, kann auch seine eigenen Teile erstellen. Das Pro¬ 
gramm ist für jeden Neuvorschlag offen und bringt viel 
Spaß. 

Geben Sie zunächst die Listings 1 und 2 mit dem Check¬ 
summer ein. Durch die Befehle 

LOAD "THE CUBE", 8 

und or 

RUN 

wird das Spiel gestartet. 

Bedienungsanleitung 

Sobald die Titelmelodie verklungen ist, kann der Spieler 
entweder zwischen der vier Seiten langen Bedienungsan¬ 
leitung (Taste < Fl >) oder dem sofortigen Spielbeginn 
(Taste <F3>) entscheiden. Wählt der Spieler <F3>, so 
wird der Bildschirm gelöscht, und es erscheinen ein weißes 
Quadrat und sechs Teile. Aus diesen sechs Teilen soll nun 
der Würfel zusammengesetzt werden. Hierzu geht man fol¬ 
gendermaßen vor: 

1. Schritt: 

Ein Teil muß ausgewählt werden. Hierzu wird die Num¬ 
mer des Teils eingegeben. Die Teile sind wie folgt ange¬ 
ordnet: 

1 2 
3 4 
5 6 

Die Aufforderung hierzu 
»Teil Nummer (1 bis 6):_« 

ist links oben zu sehen. Gibt der Spieler nun eine Nummer 
ein, so wird der entsprechende Teil gelöscht und in die linke 
untere Hälfte des Bildschirms gesetzt. 

2. Schritt: 

Jetzt bietet sich die Gelegenheit, den ausgewählten Teil 
in seiner Lage zu verändern. Die Aufforderung hierzu 

»Drehrichtung :_« 

steht wiederum links oben: 

Dazu ist ein Befehl aus zwei Buchstaben einzugeben: 
Der erste Buchstabe steht für die Art der Lageveränderung, 
Kippen oder Drehen - K oder D, der zweite Buchstabe steht 
für die Richtung links (= gegen den Uhrzeigersinn), rechts 
(= mit dem Uhrzeigersinn), vorne, hinten. Jeweils der 
Anfangsbuchstabe der Richtung ist als zweiter Buchstabe 
einzugeben. 



Bild. Die ersten drei Züge nach der Grundstellung 
des ersten Würfels. Es wird immer schieriger, ein Teil 
einzupassen. 


Folgende Kombinationen sind also möglich: 

DL, DR, KL, KR, KV, KH. 

Glaub* er Spieler die richtige Lage gefunden zu haben, so 
langt die Eingabe von <E>, um überzugehen zum 

3. Schritt: 

Das Teil in der vom Spieler bestimmten Lage wird nun in 
Vogelperspektive in das weiße Quadrat gezeichnet. Hierbei 
hat man sich das Quadrat als »Würfelkasten« vorzustellen. 
Die unterschiedlichen Höhen der Teile werden durch Farb¬ 
abstufungen deutlich gemacht (je weiter unten, desto dunk¬ 
ler. Weiß ist immer ganz oben). Nun kann der Spieler, wenn 
dies möglich ist (der Computer prüft das vorher), die Posi¬ 
tion des Teils innerhalb des Würfelkastens durch Taste 
<B> bestimmen. Durch Betätigung dieser Taste werden 
nach und nach alle möglichen Positionen im Würfelkasten 
aufgezeigt. Ist die richtige Position gefunden, so genügt ein 
Druck auf Taste < F >, um den Inhalt des Würfelkastens in 
3-D-Form links oben zeichnen zu lassen und das nächste 
Teil auszuwählen. 

Sollten Sie einmal keinen Ausweg mehr sehen oder sich 
total geirrt haben, so genügt ein Druck auf die Taste <Q>, 
um den Versuch abzubrechen und neu zu beginnen. 

(M. Scherf/og) 


100 POKE 646,0=POKE 53200,0=POKE 53281,0 
110 PRINT"CCLR3L0AD“CHR$ (34 > "GAME'CHRS (34) 
" . 8 ” 

120 FOR 1 = 1 TO 9:PRINT:NEXT = PRINT SPC<10>" 
CYELLOSOLOADING GAME PROGRAM"=POKE 646 
,0 

130 POKE 198,6:FOR 1=1 TO 6=READ D=POKE 63 
0+1,D=NEXT 

140 POKE 44,20=POKE 5120,0=NEH 
150 DATA 19,13,82,85,78,13 

© 64’er 

Listing 1. Lader für »The Cube«. Bitte mit dem 
Checksummer eingeben. 


<023> 

<049> 

<058> 

<249> 

<136> 

<171> 
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100 DIM B$ (2,2.2),W$(2,2,2) .VZS(2,2,2)> Y$( 
27>,Q(12).A1$(27>,C2$<27>,LI(43>,H1<43 
> <217> 

110 DIM T1(43),L2(16),H2(16),T2(16>.L3(27) 

.H3(27 >,T3< 27 > <115> 

120 LV=1:V=53248=SI=54272:FL=SI: FH=SI+1 : BS 

=SI+4:AS=SI+5=HS=SI+6:LS=SI+24 <223> 

130 GOSUB 4740 <094> 

140 = <116> 

150 REM — TITELBILD — <217> 

160 PRINT SPC(12)"CYELLOW,SPACE>MATTHIAS S 

CHERFCSPACE■DOWN}“ <047> 

170 PRINT SPC(17)"CLIG.GREEN}PRESENTSC2DOW 

N>" <169> 


180 PRINT SPC(10)”CRVSON.RED.6SPACE.RVOFF. 

SPACE,RVSON,2SPACE,RVOFF,2SPACE,RVSON, 

2SPACE,RVOFF,SPACE,RVSON,6SPACE> RVOFF} 

<213> 

190 PRINT SPC(12>'■ CRVSON.2SPACE,RVOFF,3SPA 
CE.RVSON.2SPACE.RVOFF.2SPACE.RVSON,2SP 
ACE.RVOFF,SPACE.RVSON.2SPACE.RVOFF}" <13 0> 

200 PRINT SPC(12>"CRVSON,2SPACE.RVOFF,3SPA 
CE,RVSON,6SPACE,RVOFF,SPACE,RVSON,4SPA 
CE,RVOFF?" <037> 

210 PRINT SPC(12)"CRVSON,2SPACE.RVOFF,3SPA 
CE,RVSON,2SPACE,RVOFF,2SPACE,RVSON,2SP 
ACE,RVOFF,SPACE,RVSON,2SPACE,RVOFF>" <15 0> 

220 PRINT SPC(12>"CRVSON,2SPACE,RVOFF,3SPA 
CE,RVSON,2SPACE,RVOFF,2SPACE,RVSON,2SP 
ACE,RVOFF}”; <214> 

230 PRINT"CSPACE,RVSON,6SPACE,RVOFF,2DOHND 

<190> 

240 PRINT SPC(6>"CGREEN,RVSON,6SPACE,RVOFF 
.SPACE,CYAN,RVSON,2SPACE,RVOFF,2SPACE, 

RVSON,2SPACE,RVOFF.SPACE,YELLOW}< 2 2 9 > 
250 PRINT"CRVSON,6SPACE,RVOFF,SPACE,LIG.BL 

UE,RVSON,6SPACE,RVOFF} H <105> 

260 PRINT SPC(6)“CGREEN,RVSON,2SPACE,RVOFF 
,5SPACE,CYAN,RVSON,2SPACE,RVOFF,2SPACE 
,RVSON,2SPACE,RVOFF,2SPACE,YELLOW}": < 2 51> 

270 PRINT”CRVSON,2SPACE,RVOFF,SPACE,RVSON, 

2SPACE,RVOFF,SPACE,LIG.BLUE,RVSON,2SPA 
CE,RVOFF}" <224> 

280 PRINT SPC(6)”CGREEN,RVSON,2SPACE,RVOFF 
,5SPACE,CYAN,RVSON,2SPACE,RVOFF,2SPACE 
,RVSON,2SPACE,RVOFF,2SPACE,YELLOW}"; < 015 > 

290 PRINT"CRVSON,4SPACE,RVOFF,2SPACE,RVSON 

,LIG.BLUE,2SPACE,RVOFF}" <181> 

300 PRINT SPC(6)"CGREEN,RVSON,2SPACE,RVOFF 
.5SPACE,CYAN,RVSON,2SPACE,RVOFF,2SPACE 
.RVSON,2SPACE,RVOFF,2SPACE,YELLOW}"; < 03 5 > 

310 PRINT"CRVSON,5SPACE.RVOFF,SPACE,LIG.BL 


UE,RVSON,4SPACE,RVOFF}" <16 7 > 

320 PRINT SPC(6 >“CGREEN,RVSON,2SPACE,RVOFF 
,5SPACE,CYAN,RVSON,2SPACE,RVOFF,2SPACE 
,RVSON,2SPACE,RVOFF,2SPACE,YELLOW}"i <055> 

330 PRINT"CRVSON,2SPACE,RVOFF,SPACE,RVSON, 

2SPACE,RVOFF,SPACE,LIG.BLUE.RVSON,2SPA 
CE,RVOFF}" <028> 

340 PRINT SPC(6)"CGREEN,RVSON,2SPACE,RVOFF 
.5SPACE,CYAN,RVSON.2SPACE,RVOFF,2SPACE 
,RVSON.2SPACE,RVOFF,2SPACE,YELLOW}"; <075> 

350 PRINT"CRVSON,2SPACE,RVOFF,SPACE,RVSON, 

2SPACE,RVOFF,SPACE,LIG.BLUE,RVSON,2SPA 
CE,RVOFF}" <048> 

360 PRINT SPC<6)"CGREEN,RVSON,6SPACE,RVOFF 
,SPACE,CYAN,RVSON,6SPACE,RVOFF,SPACE,Y 
ELLOW}": <138> 

370 PRINT"CRVSON,6SPACE,RVOFF,SPACE,LIG.BL 

UE.RVSON,6SPACE,RVOFF}" <227> 

380 PRINT"C3DOWN.GREY 2,SPACE}DAS GROSSE K 

NOBELSPIEL FtR KLUGE LEUTE":GOSUB 3800 <202> 
390 PRINT"CUP,RVSON,PURPLE,SPACE}F 1CSPACE 
,RVOFF,2SPACE,GREY 2}INSTRUCTIONSC5SPA 
CE,RVSON,PURPLE,SPACEOF 3 CSPACE,RVOFF, 

2SPACE,GREY 2}FLAY GAME" <254> 

400 GET A$•• IF A$=” "THEN 400 <115> 

410 IF ASC(A$)=134 THEN 860 <238> 

420 IF ASC(A$><>133 THEN 400 <064> 

430 PRINT CHR$(147):FOR 1=0 TO 5:PRINT=NEX 

T <238> 

440 s <162> 

450 REM-SPIELANLEITUNG — <129> 

460 PRINT SPC(4)“CGREEN}ZIEL DIESES SPIELS 

IST ES,EINEN":PRINT <245> 

470 PRINT SPC(16)"CCYANOWtRFEL"=PRINT <156> 

480 PRINT SPC(3 >"CGREENDAUSCSPACE.YELLOWOS 


ECHSCGREEN,SPACEDTEILEN ZUSAMMENZUSETZ 
EN:“ <089> 

490 GOSUB 800 <236> 

500 PRINT"CLIG.BLUE}1.SCHRITT:CGREEN}W*HLE 

N SIE DURCH DIE TASTEN"=PRINT <053> 

510 PRINT”1 - 6 EIN TEIL AUS.":PRINT <118> 

520 PRINT"ANORDNUNG:C2SPACE}1C2SPACE}2" <069> 

530 PRINT"CI2SPACE}3C2SPACE}4" <206> 

540 PRINT"C12SPACE}5C2SPACE}6":PRINT <238> 

550 PRINT“CLIG.BLUE02.SCHRITT:CGREENOBESTI 

MMEN SIE DIE LAGE DES"=PRINT <172> 

560 PRINT"TEILS,INDEM SIE ZUERST EINGEBEN, 

OB SIE "'-PRINT <001> 

570 PRINT“DAS TEILCSPACE,CYAN}KCYELLOW}IPP 
ENCGREEN.SPACE}ODERCSPACE,CYAN}DCYELLO 
W}REHENCGREEN,SPACEDWOLLEN."=PRINT <162> 

580 PRINT"ANSCHLIESSEND DANN DIE RICHTUNG: 

“:PRINT <132> 

590 PRINT"CCYAN}LCYELLOW}INKS,CCYAN}RCYELL 
OW}ECHTS,CCYAN}VCYELLOW}ORNE,CCYAN}HCY 
ELLOW}INTEN."SPRINT <190> 

600 PRINT"CGREENOBEISPIEL:CCYAN,SPACE}DLCS 
PACE.YELLOW}= DREHEN NACH LINKS.":PRIN 
T <134> 

610 PRINT"TASTECSPACE,CYAN}ECYELLOW,SPACE} 

BEENDET DEN VORGANG!" <042> 

320 GOSUB 800 <112> 

630 PRINT"CCLR,LIG.BLUE}3.SCHRITT:CGREEN}I 
N DIESEM WtRFELKASTEN :":GOSUB 1470:PO 
KE 646,5 <176> 

640 FOR 1=1 TO 10:PRINT:NEXT <233> 

650 PRINT"(SICHT VON OBEN)C2SPACEDWIRD DAS 

TEILC2SPACE}EINGE-“:PRINT < 246 > 

660 PRINT"TRAGEN:JE WEITER UNTEN SICH DAS 

TEIL ”:PRINT <035> 

670 PRINT"BEFINDET,DESTO DUNKLER ERSCHEINT 

ES.":PRINT <176> 

680 PRINT"BEWEGEN SIE DAS TEIL IM WtRFEL D 

URCH":PRINT <016> 

690 PRINT"TASTE B-FIXIEREN SIE ES MIT TAST 

EF!" <214> 

,700 GOSUB 800 <192> 

710 r.'.INT “ CLIG. BLUE}4. SCHRITT: CGREEN}W*HLE 

N SIE DAS N*CHSTE TEIL”:PRINT <130> 

720 PRINT-AUS.“ <006> 

730 PRINT:PRINT"ES GIBT DREI VERSCHIEDENE 

SCHWIERIG-":PRINT <047> 

740 PRINT"KEITSSTUFEN!":PRINT:PRINT“UND NU 

N..."= PRINT <215> 

750 PRINT SPC(14)"CLIG.RED}VIEL GLtCK!”:PR 

INT--PRINT <158> 

760 PRINT"CGREEN}P.S. SOLLTEN SIE AUS EINE 

R SITUATION":PRINT <181> 

770 PRINT SPC(5)"KEINEN AUSWEG MEHR SEHEN, 

":PRINT <074> 

780 PRINT SPC(5)"SO DRtCKEN SIECSPACE,CYAN 

}Q.CGREEN}":PRINT:PRINT:PRINT < 220> 

790 GOTO 390 <116> 

800 PRINT CHR$(19):FOR 1=0 TO 20=PRINT=NEX 
T:PRINT SPC(18)"CLIG.RED}PRESS Fl TO C 
ONTINUE" <113> 

810 GET A$:IF A$=""THEN 810 <210> 

820 IF ASC(A$)<>133 THEN 810 <085> 

830 PRINT CHR*(147)isRETURN <051> 

840 : <054> 

850 REM — LEVELAUSWAHL —- <073> 

860 PRINT CHR$(147) <127> 

870 ON LV GOSUB 4000,4190,4340 <119> 

880 GOTO 1090 <091> 

890 s <104> 

900 REM — KOMMENTAR SPIEL VERLOREN — <149> 

910 PRINT CHR$(147 > <177> 

920 TR(LV)=TR(LV>+1 <247> 

930 PRINT"CGREEN}TJA,TUT MIR LEID-IST WOHL 

DOCH NICHT SO":PRINT <002> 

940 PRINT"EINFACH WIE ES AUSSIEHT?!":PRINT <241> 
950 PRINT"ABER ES IST JA ERST IHR";TR(LV>; 

"CLEFT}.TER VERSUCH.“:PRINT=PRINT <050> 

960 PRINT"ALSO NICHT VERZAGEN!!-AUF EIN NE 

UES!!“: <239> 

970 GOSUB 800:GOTO 870 <136> 

980 : <194> 

990 REM — KOMMENTAR SPIEL GEWONNEN — <183> 

1000 PRINT CHR$(147>:TR(LV)=TR(LV>+1 <216> 


Listing 2. Hauptprogramm »Game« 
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1010 

PRINT"HERZLICHEN GLtCKWUNSCH!":PRINT 

<119> 


(AN > ="":GOTO 1840 

<190> 

1020 

PRINT"SIE HABEN DEN WtRFEL IM";TRC LV> 


1680 

REM +++ RECHTS (D> +++ 

<168> 


;"CLEFT>.TEN”:PRINT 

<076> 

1690 

FOR G=0 TO 2:FOR 1=0 TO 2=A=2-I:FOR T 


1030 

PRINT"VERSUCH GESCHAFFT!":PRINT 

<239> 


= 0 TO 2 

<245> 

1040 

IF LV=3 THEN GOSUB 800:GOTO 4540 

<079> 

1700 

B*(G,T,A)=W*(G,I,T>:NEXT T:NEXT I=NEX 


1050 

PRINT"UND HIER - DER N*CHSTE KANDIDAT 



T G:A$ < AN > ="":GOTO 1840 

<179> 


S . . . " 

<084> 

1710 

REM +++ RECHTS <K> +++ 

<167> 

1060 

GOSUB 800=LV=LV+1=GOTO 870 

<006> 

1720 

FOR G=0 TO 2=FOR 1=0 TO 2:FOR T=0 TO 


1070 


<030> 


2:Z=2-T 

<211> 

1080 

REM — ZEICHNEN DER TEILE — 

<155> 

1730 

B* < Z,I,G)=W*(G,I,T > = NEXT = NEXT:NEXT:A* 


1090 

POKE 53280,0:POKE 53281,0=PRINT CHR*( 



(AN > = "”:GOTO 1840 

<004> 


147) 

<020> 

1740 

REM +++ HINTEN (K) +++ 

<004> 

1100 

GOSUB 1470:POKE 646,5 

<081 > 

1750 

FOR G=0 TO 2:A=2-G:FOR 1=0 TO 2=FOR T 


1110 

FOR AN=0 TO 5=H=0 

<104> 


=0 TO 2 

<088> 

1120 

FOR E=0 TO 2:FOR A=0 TO 2=FOR R=1 TO 


1760 

B$(I,A,T)=W*(G,I,T):NEXT:NEXT:NEXT:A* 



3 

<074> 


(AN) =""= GOTO 1840 

<022> 

1130 

H=H+1:D*=MIDS(A*(AN),H,1) 

<168> 

1770 

REM +++ LINKS (D)+++ 

<192> 

1140 

IF D*=" 1"THEN GOSUB 1530 

<121> 

1780 

FOR G=0 TO 2=FOR 1=0 TO 2=FOR T=0 TO 


1150 

NEXT = NEXT:NEXT:NEXT 

<015> 


2:Z=2-T 

<015> 

1160 

: 

<120> 

1790 

B* (G, Z. I)=W*(G,I,T >:NEXT TiNEXT I:NEX 


1170 

: 

<130> 


T G:A*(AN)="”:GOTO 1840 

<032> 

1180 

REM — AUSWAHL EINES TEILS — 

<093> 

1800 

REM +++ LINKS (K> +++ 

<080> 

1190 

PRINT"CHOMEOTEIL NUMMER 1-6 : $" 

<232> 

1810 

FOR G=0 TO 2:A=2-G = FOR 1=0 TO 2:FOR T 


1200 

GET TN$=IF TN*=""THEN 1200 

<233> 


=0 TO 2:Z=2~T 

<156> 

1210 

IF TN*="Q"THEN Z4=0:GOTO 3140 

<213> 

1820 

B$ ( T,I,A > =V$ (G,I,T):NEXT:NEXT:NEXT:A* 


1220 

TN=VAL(TN* > :IF TN<1 OR TN>6 THEN 1190 

<121> 


(AN) = ""= GOTO 1840 

<147> 

1230 

FOR 1=0 TO ZR:IF IV(I>=TN THEN 1190 

<170> 

1830 


<028> 

1240 

NEXT : AN=TN-1 : POKE 1042,ASC < TN* ) = GOSUB 


1840 

FOR G=0 TO 2:FOR 1=0 TO 2:FOR T=0 TO 



1930 

<025> 


2 = A* ( AN ) =A*(AN)+B*(G,I,T) : NEXT : NEXT :N 


1250 


<210> 


EXT 

<099> 

1260 

REM - TEIL DREHEN - 

<093> 

1850 


<048> 

1270 

K(AN)=1788:H-0 

<156> 

1860 

REM - LOESCHROUTINE 1 - 

<054> 

1280 

FOR E=0 TO 2=FOR A=0 TO 2:FOR R=1 TO 


1870 

FOR 1=0 TO 8:FOR T=0 TO 9 

<042> 


3 

<236> 

1880 

POKE K(AN)-200+I+40*T,32 

<138> 

1290 

H=H+1:D*=MIDS(A*(AN>,H,1) 

<074> 

1890 

NEXT:NEXT 

<115> 

1300 

IF D*="l“THEN GOSUB 1530 

<027> 

1900 

RETURN 

<180> 

1310 

NEXT:NEXT:NEXT:GOSUB 1570 

<174> 

1910 


<108> 

1320 

: 

<026> 

1920 

REM - LOESCHROUTINE 2 — 

<122> 

1330 

PRINT " CHOMEODREHRICHTUNG s $C4SPACE> " 


1930 

FOR 1=0 TO 7=FOR T=0 TO 8 

<165> 


: B* = 

<102> 

1940 

POKE K(AN)-3*40+T+40*I,32 

<149> 

1340 

GET DR* = IF DR*=""THEN 1340 

<057> 

1950 

NEXT:NEXT:POKE K(AN)+4,TN+48:P0KE 542 


1350 

IF DR*="E"THEN POKE 1039,5=GOSUB 2000 



72+K(AN>+4.1 

<240> 


=GOTO 2080 

<192> 

I960 ,; R=ZR+1 :IV(ZR)=TN 

<020> 

1360 

IF DRS="Q''THEN Z4=0:GOTO 3140 

<046> 

1970 

RETURN 

<250> 

1370 

DR=ASC(DR*) 

<116> 

1980 


<178> 

1380 

IF DR=20 THEN 1330 

<078> 

1990 

REM - ZERLEGEN IN 3-D STRING — 

<247> 

1390 

IF DR>90 OR DR<65 THEN 1340 

<140> 

2000 

H=0 

<151> 

1400 

B*=B*+DR$=PRINT " CHOME}“;SPC<14+LEN(B 


2010 

FOR G=0 TO 2:FOR 1=0 TO 2:FOR T=0 TO 



*>>DRS; 

<101> 


2 

<214> 

1410 

IF LEN(B$)=1 THEN PRINT"*”:GOTO 1340 

<099> 

2020 

H=H+1:B*(G,I,T >=MID$(A$(AN),H,1> 

<110> 

1420 

FOR B=1 TO 6:IF BF*(BX>B*THEN NEXT = G 


2030 

NEXT:NEXT:NEXT 

<230> 


OTO 1330 

<122> 

2040 

H=0 : PRINT"CHOMEOBITTE WARTEN SIE EINE 


1430 

ON B GOSUB 1660,1690,1720,1750,1770,1 



N MOMENT!“ 

<184> 


810 

<149> 

2050 

RETURN 

<076> 

1440 

GOTO 1280 

<143> 

2060 


<004> 

1450 


<156> 

2070 

REM - TEIL VERSCHIEBBAR NACH...? - 


1460 

REM - ZEICHNEN DES WUERFELKASTENS - 



— 

<052> 


— 

<244> 

2080 


<124> 

1470 

PRINT“CGREY 3>" 

<060> 

2090 

REM +++ RECHTS +++ 

<189> 

1480 

FOR 1=0 TO 5 : POKE 1117+1,36:POKE 5538 


2100 

FOR A=2 TO 1 STEP-1:C=C+1 : FOR 1=0 TO 



9+1,15 : POKE 1397+1,35:POKE 55669+1,15 

<176> 


2:FOR T=0 TO 2 

<120> 

1490 

POKE 1156+40*1,38:POKE 55428+40*1,15: 


2110 

IF B$(I,T,A) = "0"THEN NEXT : NEXT:Q( 0 = 1 



POKE 1163+40*1.37:POKE 55435+40*1,15: 



: NEXT:GOTO 2140 

<073> 


NEXT 

<052> 

2120 

IF C/2<>INT(C/2)THEN C=C+1 

<064> 

1500 

RETURN 

<032> 

2130 

REM +++ L I N K S +++ 

<104> 

1510 


<216> 

2140 

FOR A=0 TO 1 ; C=C+1 : FOR 1=0 TO 2:FOR T 


1520 

REM — ZEICHENEN DER ELEMENTARWUERFE 



=0 TO 2 

<236> 


L - 

<217> 

2150 

IF B$(I,T,A) = "0"THEN NEXT = NEXT = Q(0 = 1 


1530 

PO=K(AN)+2*R+39*A-80*E:SYS(49152)PO 

<086> 


: NEXT:GOTO 2180 

<121> 

1540 

RETURN 

<074> 

2160 

IF C/2<>INT(C/2)THEN C=C+1 

<104> 

1550 


<002> 

2170 

REM +++ V 0 R N E +++ 

<231> 

1560 

REM — TEILE-DATEN IN 3-D STRING ZER 


2180 

FOR A=2 TO 1 STEP-1:C=C+1=FOR 1=0 TO 



LEGEN - 

<255> 


2=FOR T=0 TO 2 

<200> 

1570 

H=0 

<231> 

2190 

IF B$(I,A,T)="0"THEN NEXT:NEXT:Q(C)=1 


1580 

FOR G=0 TO 2:FOR 1=0 TO 2:FOR T=0 TO 



: NEXT:GOTO 2220 

<207> 


2 

<038> 

2200 

IF C/2 <> INT ( C/2 ) THEN C=C+1 

<144> 

1590 

H=H+1:WS(G,I,T>=MID*(A9(AN),H,1)=B*(G 


2210 

REM +++ H I N T E N +++ 

<116> 


,I,T)=W*(G,I,T> 

<017> 

2220 

FOR A=0 TO 1:C=C+1:FOR 1=0 TO 2:FOR T 


1600 

NEXT:NEXT:NEXT 

<054> 


=0 TO 2 

<060> 

1610 

H=0 

<015> 

2230 

IF B$(I,A,T)=“0"THEN NEXT:NEXT:Q(C)=1 


1620 

RETURN 

<154> 


:NEXT:GOTO 2260 

<255> 

1630 


<082> 

2240 

IF C/2<>INT(C/2)THEN C=C+1 

<184> 

1640 

REM - DREHEN DES TEILS NACH... — 

<214> 

2250 

REM +++ 0 B E N +++ 

<020> 

1650 

REM +++ VORNE (K> +++ 

<015> 

2260 

FOR A=2 TO 1 STEP-1=C=C+1:FOR 1=0 TO 


1660 

FOR G=0 TO 2:FOR 1=0 TO 2:A=2-I:FOR T 



2:FOR T=0 TO 2 

<024> 


= 0 TO 2 

<215> 

2270 

IF B*( A, I ,T) = "0"THEN NEXT:NEXT = Q(0 = 1 


1670 

B$CA,G,T)=W*<G,I,T>:NEXT:NEXT:NEXT:A* 



:NEXT:GOTO 2300 

<034> 


20 
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2280 

IF C/2<>INT<C/2)THEN C=C+1 

<224> 

2990 

Y$(OP+Z2)=RIGHT$(Y$(T >,9) +"0000000000 


2290 

REM H* ü N I E N ++ + 

<179> 


00000000":NEXT:GOTO 3040 

<013> 

2300 

FOR A=0 TO l=C=C+l:FOR 1=0 TO 2 = FOR T 


3000 


<182> 


=0 TO 2 

<140> 

3010 

REM +++ RUECKFUEHRUNG AUF 1-D STRING 


2310 

IF B$(A.I.T)="0"THEN NEXT:NEXT:Q(C>=1 



++ + 

<078> 


= NEXT = GOTO 2330 

<082> 

3020 

FOR A=0 TO 2:FOR E=0 TO 2:FOR R=0 TO 


2320 

IF C/2OIHT0C/2) THEN C=C+1 

<010> 


2:Y$ < ZI> =Y$ < ZI>+VZS(A.E.R):NEXT:NEXT: 


2330 


<020> 


NEXT 

<147> 

2340 

REM — ERMITTELN ALLER ’DUALSTRINGS’ 


3030 

FOR A=0 TO 2:FOR E=0 TO 2:FOR R=0 TO 



.DER NEUEN TEILE. - 

<148> 


2:VZ$(A,E,R > ="0"= NEXT:NEXT:NEXT 

<246> 

2350 

REM-DIE DIE VERSCHIEBUNGE 


3040 


<222> 


N ERGABEN - 

<178> 

3050 

ZI=ZI+1:IF ZI<=RZ THEN 2390 

<247> 

2360 


<050> 

3060 

SL=OV+Z2+Z3:IF SL=0 THEN SL=RZ 

<145> 

2370 

FOR T=1 TO 12 : IF 6KT> = 1 THEN RZ=RZ+1: 


3070 


<252> 


VE(RZ)=T 

<142> 

3080 

REM — PASST DAS TEIL IN DEN WUERFEL 


2380 

NEXT T:Y#(0)=A$(AN):ZI=0:GOTO 3030 

<188> 


KASTEN ? — 

<217> 

2390 

IF VE(ZI>>4 AND OS=0 THEN OV=ZI-l = OS= 


3090 

FOR 1=0 TO SL 

<201 > 


1 

<038> 

3100 

FOR T=1 TO 27 

<166> 

2400 

IF OKO0 THEN 2420 

<055> 

3110 

IF MID$< Y$(I),T.1> = "1"AND MIDS(W$.T,1 


2410 

IF VE(ZI)>8 THEN OP=OV+Z3=OK=l 

<126> 


)="1"THEN 3130 

<057> 

2420 

ON VE(ZI)GOTO 2450,2500,2550.2600.265 


3120 

NEXT=Z4=Z4+1:A1$(Z4)=Y$(I) 

<135> 


0.2700,2750,2800.2860.2900,2940,2980 

<194> 

3130 

NEXT I 

<166> 

2430 

: 

<120> 

3140 

IF Z4O0 THEN 3200 

<242> 

2440 

REM ++ + RECHTS (1) +++ 

<068> 

3150 

GOSUB 3510 

<186> 

2450 

FOR A=0 TO 2:FOR E=0 TO 2=FOR T=0 TO 


3160 

PRINT"CHOME5DAS WAR WOHL NICHTS..."i: 



1 

<050> 


GOSUB 3860 

<165> 

2460 

VZS(A.E,T+1)=B$(A,E,T > 

<042> 

3170 

PRINT"PRESS ANY KEY!":GOTO 3750 

<206> 

2470 

NEXT:NEXT:NEXT:GOTO 3020 

<002> 

3180 


<108> 

2480 


<170> 

3190 

REM — NEUE GESAMTWUERFELDATEN ERSTE 


2490 

REM +++ RECHTS (2) +++ 

<150> 


LLEN — 

<120> 

2500 

FOR A=0 TO 2:FOR E=0 TO 2 

<099> 

3200 

FOR 1=1 TO Z4:C2$(I)=" B 

<128> 

2510 

VZS(A, E. 2) =BS (A, E, 0 > 

<045> 

3210 

FOR T=1 TO 27 

<020> 

2520 

NEXT:NEXT:GOTO 3020 

<131> 

3220 

IF MID$<Al$(I),T,1)="0"AND MID$(W$,T. 


2530 


<220> 


1)="0"THEN C2$(I)=C2$(I)+"0":GOTO 324 


2540 

REM +++ LINKS (1) +++ 

<151> 


0 

<121> 

2550 

FOR A=0 TO 2 =FOR E=0 TO 2 = FOR T=1 TO 


3230 

C2S(I)=C2$(I> +"1" 

<248> 


2 

<190> 

3240 

NEXT T:NEXT I:G=0 

<058> 

2560 

VZ$(A.E,T-1>=B$(A,E,T) 

<152> 

3250 


<178> 

2570 

NEXT:NEXT:NEXT:GOTO 3020 

<104> 

3260 

REM - TEIL IN DEN KASTEN EINTRÄGEN 


2580 


<016> 



<01 4> 

2590 

REM ++ + LINKS (2) +++ 

<219> 

. 3270 

H=0:G=1:GOSUB 3600 

<241> 

2600 

2610 

rOK A=0 TO Z^FOK E=0 TO 2 

VZ$(A»E,0)=B$(A.E.2 > 

<201> 

<171> 

32SC FOR A=0 TO 2=FOR E=0 TO 2=FOR R=0 TO 

<1 B5> 

2620 

NEXT:NEXT:GOTO 3020 

<233> 

3290 

D$=MID$(C2$(G),H,1) 

<105> 

2630 


<066> 

3300 

IF D$=“ 1"THEN GOSUB 3660 

<121> 

2640 

REM +++ VORNE (1) +++ 

<084> 

3310 

NEXT:NEXT:NEXT 

<240> 

2650 

FOR A=0 TO OV=Z3=Z3+l 

<019> 

3320 


<248> 

2660 

Y$ (OV+Z3)=RIGHTS(Y$(A),3)+LEFTS(Y*(A > 


3330 

REM - ABFRAGE DER POSITION — 

<082> 


,24) 

<248> 

3340 

PRINT"CHOME>B = BEWEGENC6SPACE>F = FI 


2670 

NEXT A:GOTO 3030 

<225> 


XIEREN!" 

<018> 

2680 

• 

<116> 

3350 

GET GES:IF GE$=""THEN 3350 

<086> 

2690 

REM +++ VORNE (2) +++ 

<150> 

3360 

IF GE$="F"THEN W$=C2$(G):GOSUB 1870:G 


2700 

FOR A=0 TO OV=Z3=Z3+l 

<069> 


OTO 3440 

<216> 

2710 

Y$(OV+Z3)=RIGHT$(Y$(A),6)+LEFTS(Y$(A> 


3370 

IF GES="B"THEN 3400 

<083> 


,21) 

<087> 

3380 

IF GE$="Q"THEN Z4=0--GOTO 3140 

<105> 

2720 

NEXT:GOTO 3030 

<098> 

3390 

GOTO 3350 

<252> 

2730 


<166> 

3400 

G=G+1:IF G>Z4 THEN G=1 

<137> 

2740 

REM + + + HINTEN (1) + + + 

<177> 

3410 

GOSUB 3600:H=0:GOTO 3280 

<225> 

2750 

FOR A=0 TO OV:Z3=Z3+1 

< 119 > 

3420 


<094> 

2760 

Y$(OV+Z3)=RIGHT$< Y$(A >,24 > +LEFT$(Y$(A 


3430 

REM — INHALT DES WUERFELKASTENS ZEI 



) ,3) 

<221> 


CHNEN - 

<095> 

2770 

NEXT A = GOTO 3030 

<069> 

3440 

K(AN>=1304:Z=0:GOSUB 1870 

<117> 

2780 


<216> 

3450 

FOR E=0 TO 2=FOR A=0 TO 2=FOR R=1 TO 


2790 

REM + + + HINTEN (2) +++ 

<003> 


3:Z=Z+1 

<202> 

2800 

FOR A=0 TO OV:Z3=Z3+l 

<169> 

3460 

D$=MID$(W$,Z,1> 

<135> 

2810 

Y$(OV+Z3)=RIGHT$(Y$(A),21)+LEFT$(Y$(A 


3470 

IF D$=''l “THEN GOSUB 1530 

<165> 


> ,6) 

<178> 

3480 

NEXT:NEXT:NEXT 

<156> 

2820 

NEXT:GOTO 3030 

<200> 

3490 


<164> 

2830 

NEXT A 

<056> 

3500 

REM - LOESCHROUTINE 3 — 

<186> 

2840 

: 

<022> 

3510 

FOR 1=0 TO 32:POKE 1024+1,32:NEXT 

<060> 

2850 

REM ++ + OBEN (1) +++ 

<058> 

3520 


<194> 

2860 

FOR T=0 TO OP = Z2=Z2 + 1 

<049> 

3530 

REM — LOESCHEN DER VARIABLEN - 

<157> 

2870 

Y$(OP+Z2) = “000000000" +LEFTS(Y* < T),18 > 


3540 

FOR 1=0 TO 27:Y$(I)="":A1$(I)="":C2$( 



:NEXT:GOTO 3040 

<130> 


I)="":NEXT:FOR 1=0 TO 12:Q(I)=0:NEXT 

<017> 

2880 


<062> 

3550 

C=0:RZ=0:OV=0:OK=0:OS=0:OP=0:Z2=0:Z3= 


2890 

REM ++ + OBEN (2) +++ 

< 106> 


0 : ZI=0 : SL=0 : Z=0 

<021 > 

2900 

FOR T=0 TO OP:Z2=Z2+1 

<089> 

3560 

IF Z4=0 THEN RETURN 

<008> 

2910 

Y$ (OP+Z2) = •' 000000000000000000" + LEFT$ ( 


3570 

Z4=0:GOTO 3730 

<135> 


Y$(T >,9 >:NEXT:GOTO 3040 

< 112 > 

3580 


<254> 

2920 


<102> 

3590 

REM — LOESCHROUTINE 4 — 

<030> 

2930 

REM ++ + UNTEN (1) +++ 

<204> 

3600 

FOR 1=0 TO 5:FOR T=0 TO 5 

<119> 

2940 

FOR T=0 TO OP:Z2=Z2+1 

<129> 

3610 

POKE 1157+T+40*I,32 

<187> 

2950 

Y$ < OP+Z2 >=RIGHT$< Y$ < T),18) + "000000000 


3620 

NEXT:NEXT 

<067> 


“:NEXT:GOTO 3040 

<031> 

3630 

RETURN 

<132> 

2960 


<142> 




2970 

REM +++ UNTEN (2) +++ 

<004> 




2980 

FOR T=0 TO OP:Z2=Z2+1 

<169> 
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3640 


<060> 

4350 

AS <1> = "010011000110000000000000000“ 

<222> 

3650 

REM — ZEICHNEN DES TEILS IN DEN WUE 


4360 

ASt 2> = "001111000001000000000000000" 

<034> 


RFELKASTEN — 

<226> 

4370 

AS(3 > = "001011000001000000000000000" 

<060> 

3660 

PV=1157+2*R+80*E 

<033> 

4380 

AS(4 > = "111010000001000000000000000" 

<044> 

3670 

FOR 1=0 TO l=FOR T=0 TO 1 

<186> 

4390 

AS < 5 > = "111100000000000000000000000" 

<054> 

3680 

POKE PV+I+40*T,224-A*64 

<038> 

4400 

F(1)=1:F(2>=1:F(3>=14:F<4>=14:F(5)=6: 


3690 

NEXT:NEXT 

<137> 


F(6)=14:F(7>=14:F(8>=6 

< 121 > 

3700 

RETURN 

<202> 

4410 

FOR 1 = 0 TO 8:POKE 870+1,FtI>:NEXT 

<219> 

3710 


<130> 

4420 

GOSUB 4490 

<179> 

3720 

EEM — HUERFEL FERTIG 7 - 

<049> 

4430 

POKE V+34,1 

<228> 

3730 

IF ZR<6 THEN GOTO 1190 

<036> 

4440 

POKE V+35.14 

<150> 

3740 

PRINT"CHOMEOHERZLICHEN GLtCKWUNSCH! ’ 


4450 

POKE V+36,6 

<125> 


i:GOSUB 3920:PRINT“PRESS ANY KEY!" 

<206> 

4460 

RETURN 

<200> 

3750 

GET GE$=IF GES =‘"'THEN 3750 

<236> 

4470 

: 

<128> 

3760 

IF ZR=6 THEN ZR=0:GOTO 1000 

<184> 

4480 

REM - KOORDINATENDATEN - 

<242> 

3770 

ZR=0=GOTO 910 

<175> 

4490 

POKE V+17iPEEKt V+17 >0R 4*16 

<204> 

3780 


<200> 

4500 

K(0>=1205:K(l>=1214:K(2>=1525:Kt3>=15 


3790 

REM — TITELMELODIE — 

<206> 


34:Kt4> = 1845:Kt 5> = 1854 = Kt 6> = 1304 

<197> 

3800 

POKE LS.15 = POKE AS,0:POKE HS.15*16 

<243> 

4510 

HS="000000000000000000000000000":RETU 


3810 

FOR 1=0 TO 43 : POKE FH,LI(I>:POKE FL.H 



RN 

<155> 


l(I):POKE HS,17 

<107> 

4520 


<178> 

3820 

FOR T=1 TO TI(I>*(1/16 > *1500:NEXT:FOR 


4530 

REM - EINE URKUNDE FUER DEN SIEGER. 



T=1 TO 2:POKE HS.0 = NEXT:POKE HS.17 

<115> 


. .- 

<071 > 

3830 

NEXT:POKE HS.0 : POKE AS,0:POKE HS.0:RE 


4540 

PRINT CHRSt147 > 

<251> 


TURN 

<235> 

4550 

PRINT"GEBEN SIE IHREN NAMEN EIN:":PRI 


3840 


<006> 


NT 

<226> 

3850 

REM — MELODIE HUERFEL NICHT GESCHAF 


4560 

INPUT NS 

<188> 


FT- 

<041> 

4570 

PRINT CHRSt147) 

<025> 

3860 

POKE LS,15 = POKE AS,0:POKE HS,15*16 

<049> 

4580 

PRINT SPC(10>"U R K U N D E" 

<179> 

3870 

FOR 1=0 TO 15:POKE FH,L2<I)=POKE FL.H 


4590 

PRINT SPC(10 >"#»»#»###«##«#":PRINT 

<250> 


2(1):POKE HS.17 

<172> 

4600 

PRINT"DER/DIE KNOBLER/INCSPACE,YELLOH 


3880 

FOR T=1 TO T2tI)*<1/8)*1300:NEXT:FOR 



>"iNS:PRINT;POKE 646,5 

<035> 


T=1 TO 2:POKE HS,0:NEXT:POKE HS,17 

<215> 

4610 

PRINT"HAT ES GESCHAFFT,ALLE DREI HtRF 


3890 

NEXT:POKE HS,0 : POKE AS,0:POKE HS,0:RE 



EL ":PRINT 

<009> 


TURN 

<041 > 

4620 

PRINT"ZUSAMMENZUSETZEN.":PRINT:PRINT 

<025> 

3900 


<066> 

4630 

PRINT NS;" BEN6TIGTE FtR DEN":PRINT 

<083> 

3910 

REM — MELODIE HUERFEL GESCHAFFT - 

<183> 

4640 

POKE 646,10:PRINT"ERSTEN HtRFELC2SFAC 


3920 

POKE LS,15=POKE AS,0:POKE HS.15*16 

<109> 


E>";TR 11>;"VERSUCH(E >"= PRINT 

<085> 

3930 

FOR 1=0 TO 26 = POKE FH,L3(I>=POKE FL.H 


4650 

POKE 646,13:PRINT"ZHEITEN W+RFEL ";TR 



3(1)=POKE HS,17 

<236> 


(2 >;"VERSUCH(E >“:PRINT 

<146> 

3940 

FOR T=1 TO T3(I>*(1/8)*1000:NEXT:FOR 


4660 

POKE 646,14:PRINT"DRITTEN HtRFEL ";TR 



T=1 TO 2 = POKE HS,0 = NEXT:POKE HS,17 

<228> 


'3 >;"VERSUCHtE>“:PRINT = GOSUB 3800 

<215> 

3950 

NEXT = POKE HS,0:POKE AS,0:POKE HS,0:RE 


4670 

FOR 1=0 TO 3=PRINT:NEXT:POKE 646,4 

<168> 


TURN 

<101> 

4680 

PRINT"HANT TO PLAY AGAIN t Y/N) ?“ 

<117> 

3960 


<126> 

4690 

GET AS : IF A$=""THEN 4690 

<140> 

3970 

REM — DATEN FUER DIE HUERFELTEILE - 


4700 

IF ASC(AS> =89 THEN POKE V+17,27:RUN 

<247> 


_ 

<227> 

4710 

PRINT CHRSt147>:POKE 53280,14:POKE 53 


3980 


<146> 


281,6:POKE 646,14:END 

<209> 

3990 

REM — LEVEL 1... — 

<112> 

4720 


<124> 

4000 

A$(0)="111011001000000000000000000" 

<094> 

4730 

REM - MASCHINENPROGRAMM 1 (ZEICHENS 


4010 

A$(1)="011010000001000000000000000" 

<084> 


ATZVERSCHIEBUNG >- 

<121> 

4020 

AS 12 > ="110110000011000000000000000" 

<144> 

4740 

FOR 1=0 TO 71--READ Q = POKE 4300+1,Q:NE 


4030 

A$(3)="011000000000000000000000000“ 

<120> 


XT 

<180> 

4040 

A$ < 4 > ="111100000001000000000000000" 

<196> 

4750 

DATA 173,14,220,41,254,141,14,220,165 


4050 

A$(5 > ="111000000001000000000000000" 

<222> 


,1,41,251,133,1,169,8,133,34,133 

<021> 

4060 


<226> 

4760 

DATA 36,169,216,133,35,169,8,133,37,1 


4070 

EEM - DATEN FUER DIE FARBEN - 

<229> 


62,8,160,0,177,34,145,36,136,208 

<101> 

4080 

F(1)=1:F(2)=1:F(3)=10:F(4)=10:F(5)=2: 


4770 

DATA 249,230,35,230,37,202,208,240,16 



F(6)=10:F(7)=10:F(8)=2 

<115> 


5,1,9,4,133,1.173,24,208,41,240,9 

<134> 

4090 

FOR 1=0 TO 8=POKE 870+1,F(I>=NEXT 

<151> 

4780 

DATA 2,141,24,208,173,14,220,9,1,141, 


4100 

: 

<012> 


14,220,96,255 

<113> 

4110 

REM — EXTENDED COLOUR-MODUS — 

<128> 

4790 


<194> 

4120 

GOSUB 4490 

<133> 

4800 

SYS 4300 

<068> 

4130 

POKE V+34,1 

<182> 

4810 


<214> 

4140 

POKE V+35,10 

<096> 

4820 


<224> 

4150 

POKE V+36,2 

<075> 

4830 

REM — AENDERN EINIGER ZEICHEN... — 


4160 

RETURN 

<154> 



<131> 

4170 


<082> 

4840 

FOR 1=0 TO 5:READ X:FOR T=0 TO 7:READ 


4180 

REM — LEVEL 2... — 

<056> 


Z=POKE X+T,Z=NEXT:NEXT 

<250> 

4190 

A$ < 0 > ="001011000001000000000000000" 

<038> 

4850 

FOR 1=0 TO 7:POKE 2328+1,PEEKt2840+1> 


4200 

A$(1> ="111001000000000000000000000" 

<038> 


= NEXT 

<128> 

4210 

A$(2 > ="010011000110000000000000000" 

<114> 

4860 

FOR 1=0 TO 7:POKE 2336+1,PEEKt2848+1) 


4220 

A$(3>="011011000010000000000000000" 

<160> 


:NEXT 

<091> 

4230 

A$(4)=“011010000001000000000000000" 

<146> 

4870 

FOR 1=0 TO 7:POKE 2344+1,192:NEXT 

<072> 

4240 

AS(5 > ="001111000001000000000000000" 

<00S> 

4880 

FOR 1=0 TO 7:POKE 2352+1,3:NEXT 

<186> 

4250 

F(1) = 1:F(2>=1:F<3>=13:‘F(4>=13:F(5>=5: 


4890 

FOR 1=1 TO 26:FOR T=0 TO 7:READ Z=POK 



F(6>=13:F(7)=13:F(8>=5 

<239> 


E 2048+T+8*I,Z:NEXT:NEXT 

<086> 

4260 

FOR 1=0 TO 8:POKE 870+1,F<I>:NEXT 

<067> 

4900 

FOR 1=1 TO 10:FOR T=0 TO 7:READ Z=POK 


4270 

GOSUB 4490 

<027> 


E 2424+T+8*I,Z:NEXT:NEXT 

<213> 

4280 

POKE V+35,13 

<242> 

4910 


<060> 

4290 

POKE V+36,5 

<218> 

4920 

REM — LESEN DER MELODIE-DATEN — 

<226> 

4300 

POKE V+34,1 

<096> 

4930 

FOR 1=0 TO 43:READ LI(I>,H1(I>,TItI>: 


4310 

RETURN 

<048> 


NEXT 

<226> 

4320 

: 

<232> 

4940 

FOR 1=0 TO 15:READ L2(I>,H2(I>.T2(I): 


4330 

REM — LEVEL 3 — 

<073> 


NEXT 

<129> 

4340 

AS(0 > = "001011000001000000000000000" 

<188> 

4950 

FOR 1=0 TO 26 = READ L3(I>,H311>,T3(I): 
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NEXT 



<034> 

4960 




<110> 

4970 

REM - 

— MASCHINENPROGRAMM 2 (ELEMENTA 



RWUERFEL ZEICNEN) — 


<107> 

4980 

FOR 

=49152 TO 49480:READ X=POKE I 

X: 



NEXT 



<031> 

4990 




<140> 

5000 

REM 

— EINLESEN VON POKE-DATEN FUER 



DEN HUERFEL — 


<086> 

5010 

FOR 

=860 TO 868=READ X=POKE I,X:NEXT 

<224> 

5020 




<170> 

5030 

REM 

— EINLESEN ALLER MOEGLICHEN DRE 



H-U. 

KIPPBEFEHLE — 


<234> 

5040 

FOR 

=1 TO 6:READ BFS(I>:NEXT:RETURN 

<007> 

5050 




<200> 

5060 

REM 

-- ZEICHENDATEN — 


<016> 

5070 

DATA 

2048,255,254.252,248,240.224, 

192 



,128 



<009> 

5080 

DATA 

2272,198,56,198,230,230,230,60,0 

<170> 

5090 

DATA 

2384,198,56,108,254.230,230,230, 



0 



<119> 

5100 

DATA 

2288,198,0,230,230,230,230,254,0 

<009> 

5110 

DATA 

2312,120,120,120,120.120,0,120.0 

<003> 

5120 

DATA 

2552,254,206,14,60,48,0,56,0 


<127> 

5130 

DATA 

126,126,102,230,254,230,230,0 

RE 



M A 



<248> 

5140 

DATA 

252,236,236,254,230,230,254,0 

RE 



M B 



<002> 

5150 

DATA 

254.206,206,192,198.198,254,0 

RE 



M C 



<138> 

5160 

DATA 

252,230,230,230,230,230,252,0 

RE 



M D 



<008> 

5170 

DATA 

254,192.192,254,224,224,254,0 

RE 



M E 



<056> 

5180 

DATA 

254,224,224,126,96.96.96,0 

RE 



M F 



<182> 

5190 

DATA 

254,238,224,238,230,230,254,0 

RE 



M G 



<066> 

5200 

DATA 

198,198,198,254,230,230,230,0 

RE 



M H 



<209> 

5210 

DATA 

24,24,24,24,28,28,28,0 

RE 



M I 


<142> 

5220 

DATA 

252,12,12,12,206,206,254,0 

RE 



M J 



<134> 

5230 

DATA 

102,108,120,112,248,236,230,0 

RE 



M K 



<196> 

5240 

DATA 

96,96,96,224,224,224,254,0 

RE 



M L 



<158> 

5250 

DATA 

198,238,214,206,206,206,206,0 

RE 



M M 



<193> 

5260 

DATA 

230,246,246,254,222,206,206,0 

RE 



M N 



<132> 

5270 

DATA 

254,198,198.206,206,206,254.0 

RE 



M 0 



<178> 

5280 

DATA 

254,198,198,254,224.224,224.0 

RE 



M P 



<111> 

5290 

DATA 

254,198,198,206,206,206,254,7 

RE 



M Q 



<081> 

5300 

DATA 

252.204,204.254,206,206.206.0 

RE 



M R 



<244> 

5310 

DATA 

254,198,192,254,6,230.254,0 

RE 



M S 



<063> 

5320 

DATA 

254,48,48,56,56,56,56,0 

RE 



M T 



<056> 

5330 

DATA 

198.198,198.206,206,206.254,0 

RE 



M U 



<191> 

5340 

DATA 

206,206,206.206,252,120,48,0 

RE 



M V 



<194> 

5350 

DATA 

206.206.206.206,214,238,198,0 

RE 



M H 



<077> 

5360 

DATA 

198,238,124,16,124,238,198,0 

RE 



M X 



<242> 

5370 

DATA 

206,206,206.56.56,56,56,0 

RE 



M Y 



<211> 

5380 

DATA 

254,14,14,48,48,240,254,0 

RE 



M Z 



<240> 

5390 

DATA 

126,102,102,230,230,230,254,0 

RE 



M 0 



<175> 

5400 

DATA 

120,24,24,56,56,56,56,0 

RE 



M 1 



<115> 

5410 

DATA 

254.198,6,254,224,224.254,0 

RE 



M 2 



<219> 

5420 

DATA 

254,198,6,30,6,198,254,0 

RE 



M 3 



<137> 

5430 

DATA 

192,192,204,204,254.28,28,0 

RE 



M 4 



<062> 


5440 DATA 254,192.192,254,14,206,254,0 :RE 

M 5 <131> 

5450 DATA 252,204,192,254,230,230,254.0:RE 

M 6 <218> 

5460 DATA 254,198,12,24,56,56,56,0 :RE 

M 7 <083> 

5470 DATA 126,102,102,254,230,230,254>0:RE 

M 8 <041> 

5480 DATA 254,230,230,254,14,28,56,0 :RE 

M 9 <061> 

5490 : <132> 

5500 EEM - MELODIEDATEN - <036> 

5510 DATA 52,39,1,46,118.1,43.219,2,43,219 

,1,39,18,1,34,207,2,34,207,1,32,219 <206> 

5520 DATA 1,29,69,2,27.160,2,29,69.2,46.11 

8,1,43,219,1,39,18,2,39,18,1 <252> 

5530 DATA 34,207,1,32,219,2,32,219,1,29,69 

,1,26,20,2,24,157,2,26,20,2,43,219,1 <021> 

5540 DATA 39,18,1,34,207,2,34,207,1,32,219 

,1.29.69.2,29,69,1,26.20,1 <148> 

5550 DATA 23,59,2,21,237,2,23,59,2,39,18,1 

,34,207,1,32,219,1,34,207,1,39,18,1 <096> 

5560 DATA 43,219,1,46,118,1,52,39,1,58,138 

,1,65,181,1,69,157,8 <189> 

5570 DATA 15,129,4,19,137,3,15,129.1,23,59 

.8,17,103,4,20,178,3,17,103,1,26,20.8 <052> 
5580 DATA 20,178.4,26,20,3,20,178,1,31,3.4 

,20,178,4,23,59,4,23,59,4,15,129,5 <121> 

5590 DATA 39,18,1,32,219,1,26.20,2,26,20,2 

,26,20,2,29,69,2,34,207,2,34,207,1 <205> 

5600 DATA 29,69,1,24,157,2,24,157,2,24,157 

,2,26,20,2,39,18,2,39,18,1,32,219,1 <146> 

5610 DATA 26,20,2,26,20,2,26,20,2,26,69,2, 

34,207,2,34,207,1,29,69,1,24,157,2 <255> 

5620 DATA 24,157,2,24,157,2,26,20,4 <225> 

5630 : <016> 

5640 REM — DATEN FUER MASCHI’XSNSPjfACHEPR 

OGRAMM 2- ■ V :• <141> 

5650 DATA 32,138,173,32,247,183,164,20.140 

, 232,3,164,21,140,2 c 3,3,150, (5,166 <128> 

5660 DATA 20,224,0,240,9:0,202,134,20,200,1 

32.4.240.102.32.142.192.76.27.192 <196> 
5670 DATA 200,32,68,192,200,192,7,240,91,3 

2.142.192.76.42.192.200.32.68.192 <056> 
5680 DATA 200,192,10,240,98,32,142,192,76, 

57,192,166,20,24,138,105,38,170,134 <049> 

5690 DATA 20,176,47,32,183,192,152,72,166, 

21,224,216,176,64,185,69,3,160,0,145 <013> 

5700 DATA 20,104,168,96,162,0,134,20,166,2 

1,232,134,21,166,20,76,149,192,166 <197> 

5710 DATA 21,202,134,21,162,255,134,20,76, 

27.192.166.21.232.134.21.76.79.192 <146> 


5720 DATA 136,76,38,192,136,76,53,192,166, 

20,224,255,232,240,207,134,20,76.79 <184> 

5730 DATA 192,185,81.3,76,93,192,166,21,22 

4,216,144,1,96,24,173,233,3,105,212 <036> 

5740 DATA 133,21,173,232,3,133,20,76.16,19 

2,166,21,224,216,176,39,185,91,3,153 <081> 

5750 DATA 69,3,185,101,3,153,81,3,152,170, 

160,0,177,20,72,138,168,104,170,224 <239> 

5760 DATA 192,240,13,224,64,240,31,224,224 

,240,49,224,160,240,62,96,173,103 <062> 

5770 DATA 3,153,81,3,185,91,3,170,224.0,20 

8,241,169,224,153,69,3,76,228,192 <194> 

5780 DATA 185,91,3,170,224,0,208,225,169,6 

4,153,69,3,173,110,3,153,81,3,76,228 <008> 

5790 DATA 192,185,91.3,170,224,64.208,203, 

173,110,3,153,81,3,76,228,192,185,91 <211> 

5800 DATA 3,170,224,64,208,10,173,105,3,15 


3,81,3,185,91,3,170.224,0,208,172 <240> 
5810 DATA 169,128,153,69,3,173,110,3,153,8 

1.3,76,228,192,76,231,192 <102> 
5820 : <208> 
5830 DATA 64,96,192,160,160,224,160,160,0 <007> 
5840 : <228> 
5850 DATA KV,DR,KR,KH,DL,KL <027> 


© 64’er 


Listing 2. »Game«, das Hauptprogramm von »The Cube« 
(Schluß) 
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Dreidimensionales Revers! 


Reversi, das bekannte Brettspiel, findet hier 
seine Erweiterung in die dritte Dimension. Räum¬ 
liches Vorstellungsvermögen wird gefordert, 
wenn vier Bretter Übereinanderstehen und sich 
gegenseitig beeinflussen. 

G eben Sie beide Listings von 3D-Reversi mit dem MSE 
(Seite 159) ein. Nach dem Laden und Starten des 
Ladeprogramms (Listing 1) wird man gefragt, ob man 
das Spiel von Kassette oder Diskette laden will. Nach dem 
entsprechenden Tastendruck wird das Hauptprogramm 
(Listing 2) geladen und gestartet. 

Sobald der Bildschirmaufbau beendet ist, steht in roter 
Farbe unter den 4 Spielebenen: »Spieler 1:Rot«. Nun kann 
man einen bis zu 5 Zeichen langen Namen eingeben 
(Beenden der Eingabe erfolgt mit < RETURN >, löschen 
eines Buchstabens mit der DEL-Taste). Hat man den ersten 
Namen eingegeben, erscheint: »Spieler 2:Grün«, worauf 
der zweite Name einzugeben ist. 

Bei der Eingabe der Namen gibt es drei Fälle zu unter¬ 
scheiden: 

1. Man will gegen eine andere Person spielen. In diesem 
Fall gibt man zwei verschiedene Namen ein. 

2. Man will gegen den Computer spielen. Hier gibt man 
bei der gewünschten Spielfarbe »C 64« ein (mit einem Leer¬ 
zeichen zwischen C und 64). Darauf wird man aufgefordert, 
die Spielstärke einzugeben, mit der der Computer spielen 
soll. 

3. C64 kontra C64. Man gibt bei beiden Spielern C64 als 
Namen an und gibt die Spielstärke ein. In diesem Fall läuft 
das Spiel bis zum Ende ohne Pause ab und kann nur durch 
die Tasten für LOAD oder SAVE unterbrochen werden. 

Es beginnt immer die Farbe Rot. 

26 mögliche Richtungen im Raum 


Nun erscheinen die Namen der Spieler, die Anzahl ihrer 
Spielsteine und ein hellroter Cursor in der obersten Ebene, 
der bei grüner Spielfarbe hellgrün wird (Bild 1). Dieser 
Cursor kann mit den Cursortasten oder einem Joystick in 
Port 2 gesteuert werden. 

Nun gibt es da aber bei 4 Richtungen mit dem Joystick 
ein Problem: den Ebenenwechsel. 

Der Ebenenwechsel wird durchgeführt mit 

a) den Funktionstasten. Jeder Funktionstaste entspricht 
eine Ebene: < Fl > = oberste Ebene 

<F2> = zweite Ebene und so weiter 

b) dem Joystick. Mit dem Cursor fährt man an den rech¬ 
ten Rand. Hier drückt man nun noch einmal nach rechts 
und der Cursor erscheint außerhalb des Feldes. Nun kann 
man mit Joystick rauf und runter die Ebenen wechseln und 
mit einer Hebelbewegung nach links ist man im entspre¬ 
chenden Feld. Dieser Vorgang funktioniert nur mit dem 
Joystick, da, während der Cursor außerhalb der Felder ist, 
die Tastatur gesperrt ist und man daher den Cursor nicht 
mehr ins Feld zurück bewegen könnte. 

Ein Spielstein wird mit < RETURN > oder mit dem Feu¬ 
erknopf gesetzt. Joystick und Tastatur sind zur gleichen 
Zeit verfügbar. 

Bedingung für das Setzen eines Steines ist: 

1. Die Position muß frei sein und 



Bild 1. Finden Sie sich in der dritten Dimension zurecht: 
Reversi einmal anders. 


2. man muß mindestens einen gegnerischen Stein 
umwandeln können. 

Ein gegnerischer Stein wird umgewandelt, wenn er von 
einem eigenen und von dem nun zu setzenden Stein ein¬ 
geschlossen wird: 


Feld ' or Zug 

man setzt 

Zug ausgeführt 

rot 

rot 

rot 

grün 

grün 

rot 


rot 

rot 


Nun funktioniert dieses System in alle Richtungen im 
Raum, und das sind insgesamt 26. Natürlich können auch 
mehrere Steine umgewandelt werden. 


Sonderfunktionen: 

Taste(n) 

<T>: Prüft, ob man ziehen kann. Kann man nicht 


<£>: 


<CTRL N>: 

<S>: 


<L>: 


ziehen, muß man mit < CTRL N > den Zug 
vergeben. 

Gibt Zugvorschlag, wenn weniger als 175 
Steine auf den Feldern sind und positio¬ 
niert den Cursor entsprechend. 

Vergibt momentanen Zug und übergibt an 
den Gegner. 

Save. Nach Eingabe eines 5 Zeichen lan¬ 
gen Namens wird das Spiel auf Diskette 
oder Kassette gespeichert. Der Hinter¬ 
grund wird mittelgrau, bei Kassette kurzfri¬ 
stig hellgrau und dann ausgeschaltet. Bei 
Kassette muß das Band schon an eine 
leere Stelle gespult worden sein, bevor 
man auf <K> drückt. Nachdem man Kas¬ 
sette gewählt hat, drückt man »record« und 
»play«. 

Wie bei »Save«, nur diesmal Laden einer 


Partie. Beim Laden dürfen nur die ersten 
fünf Buchstaben eingegeben werden, der 
Rest wird vom Computer angehängt. 

<CTRL A>: Vorzeitiges Abbrechen des Spieles. Dies 
ist nicht möglich, wenn der Computer 
zieht. 
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Nach Spielende (wenn alle Spielfelder voll sind oder 
wenn beiden Spielern kein Zug möglich war) wird der Sie¬ 
ger ausgegeben und nach einem Tastendruck kann man 
sich für ein neues Spiel entscheiden oder aufhören. 

Bedenkzeiten des Computers: 

Level 1: maximal 2 Sekunden für alle Felder 
Level 2: zirka 1 Sekunde/Position 
Level 3: zirka 3 Sekunden/Position 
Level 4: zirka 5 Sekunden/Position 

Noch etwas zur Strategie des Computers: 

Der Computer sucht alle Positionen, auf die er setzen 
könnte, durch, bewertet Eck- und Randpunkte zusätzlich 
und sucht sich danach den besten Zug aus. Wenn es nur 
Verlustzüge gibt, sucht er aus diesen den bestmöglichen 
aus, also den, der möglichst wenig Steine kostet oder einen 
Stellungsvorteil bringt. 

Auf eine zusätzliche Bewertung der obersten und unter¬ 
sten Ebene wurde verzichtet, da sonst der Computer am 
Anfang nur in der obersten oder untersten Ebene ziehen 
und das Spiel so etwas von seinem Reiz verlieren würde. 

Im allgemeinen sind Felder in der obersten oder unter¬ 


sten Ebene zu bevorzugen. Sie entsprechen in der Bewer¬ 
tung den Randfeldern des normalen Reversi. Auch sonst 
lassen sich die Strategien des 2dimensionalen Reversi 
anwenden. Die ab Seite 29 abgedruckten Strategien bieten 
eine hilfreiche Einführung in die Materie. 

Zum Schluß noch ein Trick: 

Wenn man den Computer gegen sich selbst spielen las¬ 
sen will, ist es sinnvoll, nachdem man das Programm zum 
ersten Mal gestartet hat, zwei beliebige Namen, außer C64, 
einzugeben und nachdem der Cursor erscheint, das Spiel 
sofort zu speichern. Nun kann man mit <CTRLA> aufge¬ 
ben und den C64 gegen sich selbst spielen lassen. Hat 
man vom Zuschauen genug, drückt man die Taste <L> 
solange, bis der Computer reagiert, und lädt dann die vor¬ 
her gespeicherte Partie. Man kann nun wieder mit < CTRL 
A> aufgeben und ein neues Spiel beginnen. Selbstver¬ 
ständlich ist es auch möglich, das Computermatch zu spei¬ 
chern, bevor man es auf diese Weise unterbricht. 

Nun aber: Genug der Ausführungen, und viel Spaß beim 
Spielen! 

(T. Kopetzky/og) 
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STRATEGIE-SPIELE 


Super-Reversi 


Super-Reversi bietet eine spielstarke und gra¬ 
fisch gut aufbereitete Version des bekannten 
Reversi. Um den Computer zu schlagen, benöti¬ 
gen Sie viel Übung, denn er weiß immer, welcher 
Zug richtig oder falsch ist. 

E s gibt einige Programme, die es ermöglichen, mit dem 
(beziehungsweise gegen den) Computer Reversi 
(Listing) zu spielen. Eines haben diese Programme 
gemeinsam: Die Strategie beruht auf der Untersuchung 
der möglichen Folgezüge, und das dauert je nach Zugtiefe 
eine bestimmte Zeit. 

Wenn man aber gegen den Computer spielt, möchte 
man doch gerne, daß der Zug des Computers (fast) sofort 
nach dem eigenen erfolgt, ohne daß die Computerzüge 
schlechter werden. 

Wenn der Computerzug nicht aus der Analyse der mögli¬ 
chen Folgezüge bestimmt werden soll, bleibt nur, eine Stra¬ 
tegie zu entwickeln, die aus der Bewertung der aktuellen 
Stellung heraus den Zug liefert (Bild). Dazu wurde ein 
System von Strategien entwickelt, das vom Programm in 
nachstehender Reihenfolge abgearbeitet wird. Falls in 
einer Strategie ein guter Zug gefunden wird, werden die 
späteren Strategien nicht mehr berücksichtigt. 
Schlußstrategie: 

Falls weniger als 6 freie Plätze auf dem Spielfeld sind, 
wähle den Zug, mit dem die meisten Steine zu bekommen 
sind. 

Eckstrategie: 

Falls es möglich ist, in eine Ecke zu setzen, dann setze 
in die Ecke. 

Randstrategie: 

Fallsein gegnerischer Stein am Rand umgedreht werden 
kann, ohne daß er sofort wieder zurückgedreht werden 
kann, dann führe diesen Zug aus. 

Randstrategie 2: 

Gelingt es am Rand, folgende Stellung aufzubauen, so 
mache diesen Zug: 

BRB; B = Blauer Stein (Spieler) 

R = Anzahl von zusammenhängenden roten Stei¬ 
nen (Computer). 

Randstrategie 3: 

Falls es möglich ist, eine durchgehende Reihe bis zur 
nächsten Ecke aufzubauen, so führe diesen Zug aus. 


Reversi-Spielanleitung 

Gespielt wird auf einem 8-8 Felder großen Brett (siehe Bild). 
Jeder Spieler setzt abwechselnd einen Stein, und zwar so, daß er 
einen oder mehrere in einer geraden, zusammenhängenden 
Reihe liegende Steine des Gegners einschließt. Dies gilt für alle 
Richtungen (waagerecht, senkrecht und diagonal). Die von zwei 
Steinen eigener Farbe eingeschlosssenen gegnerischen Steine 
bekommen nun die eigene Farbe. Wird ein Stein gesetzt, der 
gleichzeitig mehrere solcher Reihen schließt, so gilt die Regelung 
auch für alle diese Reihen. 

Kommt es vor, daß ein Spieler keinen Stein mehr setzen kann, 
so muß er passen und der Gegner ist wieder an der Reihe. 

Das Spiel ist beendet, wenn 

- alle Steine gesetzt sind 

- beide passen müssen 

- ein Spieler keinen eigenen Stein mehr auf dem Brett hat 
Gewonnen hat derjenige, der nach Spielende die meisten 

Steine auf dem Brett hat. 



Bild. Welcher Zug wird wohl der nächste sein? Besiegen 
Sie den C64 beim Reversi! 


Randstrategie 4: 

Falls es möglich ist, einen Stein an den Rand zu setzen, 
ohne daß dieser im nächsten Zug umgedreht werden kann, 
so führe diesen Zug aus. (Für diese Einschränkung ist es 
nicht nötig, alle möglichen Folgezüge zu betrachten. Es 
reicht aus, die benachbarten Randfelder zu untersuchen.) 
4*4-Strategie: 

Ist in dem innersten 4*4-Feld ein Zug möglich, dann 
führe ihn aus. 

6*6-Strategie: 

Analog zur 4*4-Strategie. 

Ausnahme: Die diagonalen Voreckfelder dürfen nicht 
gesetzt werden (Voreckfeldstrategie). 

(Vcr jkfelder sind die Felder, die waagerecht, senkrecht 
oder diagonal an einem Eckfeld anliegen). 

8*8-Strategie: 

Analog zur 4*4-Strategie, nur sind hier alle Voreckfelder 
ausgeschlossen. 

Voreckfeldstrategie: 

Besteht eine Diagonale nur aus eigenen Steinen, so 
setze auf ein entsprechendes Diagonalvoreckfeld. 

Falls ein Zug auf ein Randvoreckfeld nicht zur Folge hat, 
daß der Gegner unmittelbar in die Ecke setzen kann, dann 
führe diesen Zug aus. 

Ramsch-Strategie: 

Führe den Zug aus, der überhaupt noch möglich ist. 
Passen: 

Falls bis hier kein Zug gefunden wurde, muß der Compu¬ 
ter passen; der Gegner ist nochmal am Zug. 

In den n*n-Strategien wird der Wert des Zuges so 
berechnet: Wir haben jedem Feld des Bretts einen Wert 
zugeordnet (je nach Bedeutung des Feldes). Nun werden 
die Werte der Felder aufaddiert, auf denen eigene Steine 
liegen. Davon werden dann die Werte der Felder subtra¬ 
hiert, auf denen gegnerische Steine liegen. Der Zug mit 
dem so berechneten maximalen Wert wird ausgeführt. 
Haben zwei Züge den gleichen Wert, so entscheidet der 
Zufall. Damit wird erreicht, daß man kein festes Gewinn¬ 
schema aufbauen kann. 

Programmbeschreibung: 

Im Menü kann man mittels Joystick im Port 2 auswählen, 
ob der Computer oder man selbst beginnt. Der Computer 
spielt immer mit den roten Steinen. Ferner haben im Menü 
die Tasten <F1> und <F7> eine Funktion: 

Fl: Anzeige des aktuellen Spielstands. Die großen Zah¬ 
len in der Mitte zeigen das Verhältnis der gewonnenen 
Spiele an, die kleinen fünfstelligen Zahlen geben das Ver¬ 
hältnis der Steine an. 

F7: Wiederholung des letzten Spiels. Die Steuerung 
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erfolgt mit dem Joystick (rechts = ein Zug weiter, links = 
ein Zug zurück). 

Nachdem man den Pfeil mit dem Joystick auf »START« 
bewegt hat, erscheint die Frage nach dem Schwierigkeits¬ 
grad: 

1: Sehr leicht (für Anfänger und Frustrierte) 

2: Etwas schwerer (aber immer noch leicht) 

3: Normales Spielniveau mit allen Strategien 


Der voreingestellte Wert ist 3. Mit dem Joystick kann man 
mit Links- beziehungsweise Rechtsbewegung einen ande¬ 
ren Wert wählen. Die allgemeinen Regeln entnehmen Sie 
bitte dem Textkasten (Seite 29). 

Wichtig: Da für Reversi einige Betriebssystem-Routinen 
verwendet wurden, ist es notwendig, daß eventuell ange¬ 
schlossene Erweiterungen abgeschaltet werden. 

(M. Werner/P. Sparlinek/og) 
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Super-Irrgarien »Gigamaze« 


Irrgartenprogramme hat es schon viele gegeben, 
doch Gigamaze schlägt sie alle. Verlaufen Sie 
sich doch einmal in einem Irrgarten mit über 
10000 Feldern. Gigamaze ist vollständig in 
Maschinensprache geschrieben und benötigt für 
einen Irrgarten aus lOOxlOO-Feldem unter zwei 
Minuten. 

M it Rücksicht auf Datasetten-Benutzer ist das Pro¬ 
gramm einteilig. Es verschiebt sich aber nach dem 
Starten selbst in verschiedene Speicherbereiche, 
um möglichst viel Platz für den Irrgarten zu lassen. Geben 
Sie bitte das MSE-Listing ein und laden Sie es. Bei RUN 
sollte nach einer kleinen Pause das Titelbild erscheinen. 
Mit einem Tastendruck gelangen Sie in die Größenaus¬ 
wahl. Hier können Sie die Ausmaße des Irrgartens festle¬ 
gen. Der Irrgarten darf maximal 45187 Byte belegen. Das 
entspricht einem 104x104 Feldern großen Irrgarten. Allge¬ 
mein berechnet sich der Speicherbedarf nach (2*Höhe+3)* 
(2*Breite+3). Falls Sie einmal zu große Maße angeben, 
erfolgt eine Fehlermeldung. Bei der Eingabe sind alle Cur¬ 
sorfunktionen aktiv. Haben Sie einen passenden Irrgarten 
definiert, erscheint der Spielebildschirm und der Computer 



Bild 1. Gigamaze: Es gibt nur einen Weg aus dem Irrgarten 


fängt an, den Irrgarten zu entwerfen. Das erkennen Sie an 
der Mitteilung und am flimmernden Rahmen. Bei einem 
100x100-1rrgarten muß man trotz Maschinensprache 
etwas Geduld aufbringen. Ist Ihr Irrgarten fertig, erscheint 
Ihr Männchen in der linken oberen Ecke (Bild 1). Dieses 
Männchen können Sie mit dem Joystick (Port 2) oder der 
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Tastatur (Tasten <A>, <W>, <S>, <Z>) steuern. Sie 
müssen sich den Weg zum Ausgang in Form einer Tür 
suchen. Damit Sie dabei nicht ganz hilflos sind, gibt es die 
Statuszeile. Dort steht am Anfang »P001/001«, was Ihre 
augenblickliche Position im Irrgarten ist. Diese Funktion 
können Sie mit der Taste < P > an- beziehungsweise aus¬ 
schalten. Als zweites sehen Sie Exxx, was eine ungefähre 
Entfernungsangabe zum Ziel ist. Die Taste <E> schaltet 
die Funktion an und aus. Danach sollten Sie eine laufende 
Uhr erkennen, die Ihnen anzeigt, wie lange Sie schon spie¬ 
len. <C> schaltet hier an und aus. Bitte beobachten Sie, 
daß die Zeit auch weiter läuft, wenn die Uhr ausgeblendet 
ist. Weiterhin sollten Sie ein »TRACE« in der Statuszeile 
erkennen. Wenn dieser Modus aktiviert ist, hinterlassen 
Sie auf Ihrem Weg kleine Punkte. An Ihnen können Sie 
erkennen, welche Gänge Sie schon abgegangen sind. 
»TRACE« wird mit <T> an- und ausgeschaltet. In der Sta¬ 
tuszeile ist noch etwas Platz für zwei Sonderfunktionen. Als 
erstes können Sie »SEARCH« mit Taste < R > an- und aus¬ 
schalten. Ist »SEARCH« aktiviert, dann fängt Ihr Männchen 
an, selbständig den Irrgarten abzusuchen. Es bedient sich 
dabei der Regel, daß es immer rechts abbiegen muß. Diese 
Strategie muß es zum Ziel führen. Während es läuft, kön¬ 
nen Sie es mit < + > beziehungsweise <-> beschleuni¬ 
gen und abbremsen. 


Umfangreiche Hilfsfunktionen 


Weiterhin bleiben die anderen Funktionen der Statuszeile 
schaltbar. Man kann also während »SEARCH« läuft, mit 
<P> die Positionsangabe abschalten. Mit der Taste <H> 
wird die letzte Funktion aktiviert. In der Statuszeile wird 
»SEARCH« ausgeschaltet und »SCAN« eingeschaltet. An 
der Stelle Ihres Männchens erscheint ein kleines Quadrat. 
Nun läuft ein imaginäres Männchen den Irrgarten ab, was 
Sie in der Statuszeile an der Position erkennen können. 
Sollte das imaginäre Männchen das Ziel finden, so wird an 
Ihrer alten Position ein Pfeil ausgegeben, der die Richtung 
angibt, in der es zum Ziel geht. Diese Funktion läßt sich 


auch während der Ausführung mit <H> abbrechen. Die 
anderen Funktionen bleiben wie bei SEARCH erhalten. Die 
Pfeile werden von SEARCH mitbenutzt, um den richtigen 
Weg zu erkennen. Auch SCAN greift auf die alten Pfeile 
zurück. Jetzt werden einige sagen: »Wenn ich immer den 
ganzen Bildschirm sehe, ist es ja sehr einfach.« Das 
stimmt. Aber auch Abhilfe ist ganz einfach. Benutzen Sie 
bitte die Tasten <,>,<.>,<:> und <; >, um den Irrgar¬ 
tenausschnitt auf Ihre gewünschte Größe einzustellen. 
Wenn das kleinstmögliche Fenster eingestellt ist, wird 
selbst ein 10* 10-lrrgarten zum Problem. Sollten Sie einmal 
des Spielens überdrüssig sein, tippen Sie auf < - > und 
das Spiel ist genauso zu Ende, als wenn Sie den Ausgang 
gefunden hätten. Falls Sie jetzt auf < RETURN > drücken, 
startet das Spiel von neuem. Ein Tastendruck <Q> bringt 
Sie ins Basic zurück. Achtung! Da das Programm sich 
selbst auf den Speicher verteilt, können Sie das Programm 
nicht mit SAVE speichern. Eine solche Version ist nicht lauf¬ 
fähig! Aber ins Spiel können Sie trotzdem mit RUN zurück¬ 
kehren. 

Das Programm verteilt sich nach dem Starten wie folgt im 


Speicher: 



$0801 

bis 

$1b7b 

Hauptprogramm 

$1b7c 

bis 

$cbff 

Speicher für Irrgarten 

$cc00 

bis 

$cfff 

Bildschirm 

$e000 

bis 

$e7ff 

Zeichensatz 

$e800 

bis 

$e97f 

Sprites 

$f000 

bis 

$f3ff 

Hilfsbildschirm 

$f800 

bis 

$fbff 

Titelbild 

$fc00 

bis 

$ffff 

Titelbildfarben 


Dazu werden noch einige Adressen im Bereich $0002 bis 
$0403 als Speicher und Zeiger verwendet. 

Damit beim Scrollen des Bildschirms nicht der Raster- 
stratii Achtbar das Bild verunstaltet, wird etwas getrickst. 
Der Bildschirm wird in den Hilfsbildschirm kopiert und 
angezeigt. Dann kann im Bildschirm, der jetzt ja nicht sicht¬ 
bar ist, das neue Bild aufgebaut werden. Dann wird mit 
einem Befehl wieder umgeschaltet. Auf Smooth-Scrolling 
wurde verzichtet, da der Programmieraufwand und der 
Speicherbedarf ansteigen, was wieder den Platz fürden Irr¬ 
garten dezimiert. (M. Gerloff/og) 
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ce 

eO 

fa 

be 

af 

9d 

e7 

lf 

4b 

lec9 


5d 

af 

5e 

01 

le 

lb 

91 

lf 

f 5 

21 cl 


d7 

39 

e6 

9f 

f 3 

cd 

9b 

44. 

87 

24b 9 

3 

f 6 

70 

70 

dO 

Bf 

57 

d5 

fd 

24 

ledl 


9B 

22 

30 

lc 

fd 

Oc 

61 

11 

f 2 

21c9 


e7 

c6 

3b 

91 

31 

aa 

cf 

2e 

18 

24c 1 

3 

9a 

ee 

Oe 

la 

11 

ea 

fa 

bf 

6d 

led9 


79 

cB 

90 

08 

Bc 

cB 

20 

B2 

70 

21dl 


5d 

a5 

5d 

a2 

e7 

3f 

e7 

72 

a9 

24c 9 


b3 

5d 

86 

7c 

ec 

e4 

23 

5d 

99 

leel 


60 

BB 

bd 

04 

Of 

10 

82 

37 

5f 

21d9 


24 

da 

27 

39 

d7 

11 

b3 

b5 

9c 

24dl 

3 

9d 

86 

7c 

ec 

e4 

23 

5d 

9c 

84 

lee9 


fl 

e3 

df 

cf 

9e 

22 

f 4 

04 

94 

21 el 


39 

ce 

cb 

91 

17 

39 

cf 

45 

ab 

24d9 


73 

e5 

65 

74 

3a 

ld 

Oc 

a3 

2b 

lef 1 


21 

04 

46 

fc 

93 

27 

bc 

22 

ef 

21e9 


75 

d7 

a2 

73 

9d 

95 

d7 

66 

14 

24el 


9f 

2b 

2b 

al 

dO 

eB 

65 

57 

ad 

lef 9 


fc 

37 

df 

7f 

Ba 

22 

2e 

44 

74 

21f 1 


5c 

b3 

9f 

59 

73 

73 

ac 

ba 

35 

24e9 


9f 

33 

33 

ca 

f 2 

b4 

b3 

2b 

42 

lfOl 


82 

fc 

44 

60 

B2 

09 

Bf 

8B 

de 

21f 9 


ba 

39 

d9 

5e 

5c 

b9 

67 

39 

36 

24f 1 


cf 

99 

99 

e5 

79 

5a 

59 

80 

81 

lf 09 


8e 

37 

40 

f 7 

ff 

cc 

44 

60 

7a 

2201 


f 5 

92 

eB 

dd 

32 

73 

cd 

Bd 

46 












lf 11 


9B 

fc 

cB 

04 

46 

3c 

7B 

f 7 

f 2 

2209 


36 

6c 

df 

3c 

e7 

3b 

91 

17 

cl 

Listing. »Gigamaze« (Schluß) 
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Puzzle: ein Puzzle mit Tücken 


Es ist mal wieder Spielezeit. Doch es ist kein Bal¬ 
lerspiel, das uns hier in Atem hält, sondern eine 
raffinierte Variante des Puzzles. Lassen Sie sich 
von Pazzle Ihre müßigen Stunden vertreiben. 

E in »Pazzle« ist ein aus 16 Teilen bestehendes Bild, 
welches zur Anzeige gebracht werden soll. Dazu 
stehen 18 »Knöpfe« zur Verfügung. 

Durch das Drücken eines Knopfes werden einige Teile 
des Pazzles an- oder ausgeschaltet. Nur wenn die richtigen 
Knöpfe auch in der richtigen Reihenfolge betätigt werden, 
ist das ganze Pazzle zu sehen und somit die Aufgabe 
gelöst! 

Mit dem vorliegenden Programm kann jedoch nicht nur 
ein Pazzle gelöst werden, sondern der Benutzer ist in der 
Lage, ein eigenes zu entwerfen beziehungsweise ein 
bestehendes zu editieren. 

Das Programm besteht aus 2 Teilen: 

1. Hauptteil: Dient zum Spielen und Erstellen einer 
Pazzle-Strategie. 

2. »Klauer«: Wird benutzt, wenn man aus einer Hires ein 
Pazzle-Bild »entwenden« möchte. 

Beide Teile sind voneinander unabhängig. Die Verwen¬ 
dung des »Klauers« ist aber wohl nur zusammen mit dem 
Hauptteil sinnvoll. 

Der Hauptteil wird normal mit <LOAD> geladen und mit 
<RUN> gestartet. Er belegt den Speicherbereich von 
$0801 bis $219F (Dezimal: 2048 bis 8607) 

Nach dem Starten ist in der rechten Bildschirmhälfte ein* 
längliches Feld mit 18 »Knöpfchen« zu sehen. Darüber 
befindet sich eine Zeitanzeige, die beim Starten des Pro¬ 
gramms initialisiert wird. Das große Feld, das fast den 
gesamten Rest des Bildschirms einnimmt, dient zur Dar¬ 
stellung der 16 Pazzle-Zeilen. (Jedes Teil ist ein in X- und 
Y-Richtung vergrößertes Sprite!). 

Der aktuell angewählte Knopf wird blinkend dargestellt. 
Seine Ansteuerung kann sowohl über den Joystick in Port 
2 als auch über Tasten erfolgen. Es gilt: 


<z> 

oder 

<CRSR - links> 

-> 

links 

<x> 

oder 

<CRSR - rechts > 

-> 

rechts 

<F5> 

oder 

<CRSR - hoch> 

-> 

oben 

<F7> 

oder 

<CRSR - runter> 

-> 

unten 


Durch Drücken des Feuerknopfes oder Betätigen von 

< SPACE > oder < RETURN > werden die dem angewähl¬ 
ten Knopf zugeordneten Operationen ausgeführt. 

Des weiteren benutzt der Hauptteil die folgenden Tasten: 
<M>: MOVES: Schaltet die Anzeige der Anzahl der ge¬ 
machten Knopfdrücke an oder wieder aus. 

<H>: HELP: Zeigt dem Spieler an, was passieren wird, 
wenn der gerade angewählte Knopf gedrückt würde. 
Genaueres über die Bedeutung der Anzeige: siehe 
unten bei Taste <P> (beziehungsweise <D>). 

< L>: Lösung: Zeigt eine mögliche Lösung für das Pazzle. 
Gibt es keinen Lösungsweg, so wird »00« ausgegeben. 
Der ansonsten angezeigte Lösungsweg ist zwar nicht 
immer optimal, führt jedoch (hoffentlich) stets zu einem 
vollständigen Pazzle-Bild. Die Knöpfe sind von links 
nach rechts und von oben nach unten durchnumeriert 
(beginnend bei 1). Die Nummer des jeweiligen Knopfes 
wird zum Beispiel bei HELP ausgegeben. 

< Fl >: »Softreset«: Funktioniert nur, wenn zusätzlich nicht 
die SHIFT- (oder CBM- oder CTRL-)Taste gedrückt wird. 
Das Betätigen von Fl bewirkt das Löschen des Pazzle- 
Bildes und das Rücksetzen des Zeit- und Knopf-Druck- 


Zählers. 

< —>: Mono/Multi-Umschaltung: Damit kann man be¬ 
stimmen, ob das Pazzle-Bild in hoher Auflösung (96 * 84 
Punkte) und zwei Farben oder aber in vier Farben und 
geringerer Auflösung (48*84 Punkte) dargestellt werden 
soll. (Also nichts anderes als den Wechsel zwischen 
Darstellung der Sprites in Mono beziehungsweise Multi- 
Color.) 

<3> bis <0>: Farbwechsel: Die Tasten 3,4 und 5 dienen 
zur Einstellung der Pazzle-Bildfarben. Mit der Taste 6 
kann die Farbe des Bildschirmrahmens (= $D020) 
geändert werden. Die Taste 7 bestimmt die Hintergrund¬ 
farbe (= $021), und mit 8, 9 und 0 können die restlichen 
Multi-Color-Farben reguliert werden. Wird gleichzeitig 
nicht nur eine Farbtaste, sondern auch die Taste 
<SHIFT> gedrückt, so wird der betreffende Farbwert 
erniedrigt. Ohne diese Zusatztaste wird er erhöht. 
<P> und <D>: Programmier-Modus: Wird angewählt, 
wenn man eine eigene Pazzle-Strategie entwerfen 
möchte. Innerhalb des Programmteils sind die Tasten 
wie folgt belegt: 

—, 3 bis 0 und L haben die gleiche Bedeutung wie oben 
beschrieben. <P> und <D> beenden des 
Programm-Modus, <F1 > siehe <L>, <S> geht zum 
nächsten Knopf, <A> wechselt zum vorherigen Knopf, 
<F3> wechselt vom »SET«- zum »DEL«-Feld und 
zurück. <CLR/HOME>: Löscht sowohl das »SET«- als 
auch das »DEL«-Feld 

Die Steuerung des Cursors innerhalb des »SET«- bezie¬ 
hungsweise »DEL«-Feldes entspricht der oben beschriebe¬ 
nen Ansteuerung der Knöpfe. 

Wird der Programm-Teil mit <P> oder <D> ange¬ 
wählt, so erscheint über dem Feld mit den 18 Knöpfchen ein 
Anzeigefeld, welches Auskunft darüber vermittelt, mit wel¬ 
chen Operationen der Knopf belegt ist. Unter diesem Feld 
steht die Nummer des angewählten Knopfes. Diese Anzei¬ 
ge ist die gleiche, die man erhält, wenn im Hauptteil die 
HELP-Funktion mit < H > aufgerufen wird. Sie besteht aus 
zwei 4*4 Felder umfassenden Teilen. Der erste Teil ist mit 
»SET«, der zweite mit »DEL« betitelt. Jedes der 4*4 Felder 
entspricht einem Pazzle-Teil. 

Ist ein Feld im »SET«-Teil gesetzt (= ausgemalt), so hat 
dies zur Folge, daß bei Betätigen dieses Knopfes das ent¬ 
sprechende Pazzle-Teil gesetzt wird. 

Analog gilt für den »DEL«-Teil: Ist eines der 16 Felder 
unter DEL gesetzt, so wird bei Drücken des Knopfes das 
entsprechende Pazzle-Teil gelöscht. Alle Pazzle-Teile, die 
weder im SET- noch im DEL-Teil gekennzeichnet sind, wer¬ 
den durch den Knopf nicht verändert. 

Durch entsprechendes Setzen der SET- und DEL-Felder 
der einzelnen Knöpfe kann man somit seine eigene Pazzle- 
Strategie entwerfen. Ein Feld wird durch Bewegung des 
Cursors auf dieses und anschließendes Betätigen von 

< SPACE > (beziehungsweise < RETURN > oder Feuer¬ 
knopf) gesetzt oder wieder gelöscht, sollte es bereits 
gesetzt sein. 

Natürlich kann man nicht im SET- und DEL-Teil zwei 
gleiche Pazzle-Teile kennzeichnen! 

Tip: Wenn man zur Steuerung die Tasten <Z>, <X>, 
<F5> und <F7> verwendet, hat man alle zur Program¬ 
mierung notwendigen Tasten in »Griffnähe«! 

<T>: Knopftausch: Funktioniert nur, wenn gleichzeitig 
< CBM SHIFT> gedrückt werden! Durch das Betätigen 
dieser drei Tasten wird das Programm veranlaßt, die den 
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Knöpfen zugeordneten Operationen zufällig zu vertaus¬ 
chen. Dadurch wird die zur Lösung des Pazzles einzu¬ 
haltende Reihenfolge wahllos verändert, und es wird 
wieder interessant, ein bereits gelöstes (oder selbstent¬ 
wickeltes) Pazzle noch einmal zu spielen! 

< RUN/STOP >: Programmende: Der Hauptteil wird be¬ 
endet. Dieser kann nun (zusammen mit den vielleicht 
gemachten Änderungen) gespeichert werden. Dazu ist 
»SAVE" NAME" ,8« einzugeben. 

Möchte man das Pazzle einem anderen zum Lösen 
geben (ein selbstentwickeltes Pazzle ist ein überaus genia¬ 
les, preiswertes und begehrtes Geburtstags- oder Weih¬ 
nachtsgeschenk für einen Computerfreak), sollte man 
einige der möglichen Funktionen sperren. Dies ist durch 
die Eingabe der nach Betätigen der RUN/STOP-Taste 
angezeigten SYS-Befehle leicht möglich. 

Soll zum Beispiel die Anzeige der Lösung und die Knopf- 
Programmierung verhindert werden, so ist: SYS 3551 :SYS 
3654 gefolgt von < RETURN > einzugeben. 

Hier noch ein paar kleine Tips: 

- Je weniger ein Knopf setzt und je mehr er löscht, desto 
schwieriger wird in der Regel das Pazzle. 

-Von den 18 vorhandenen Knöpfen können nur maximal 16 
zur Lösung beitragen. 

- Anfangs mag es fast unmöglich erscheinen, ein Pazzle 
lösen zu können. In Wirklichkeit ist das Problem jedoch weit 
weniger schwierig, als es zunächst den Anschein hat, 
besonders wenn man mit <H> abfragen kann, was ein 
Knopf bewirkt. Also nicht verzagen! Der Computer berech¬ 
net übrigens die Lösung des Problems, während er sie 
anzeigt (und er braucht für beides nur ein Bruchteilchen 
einer Sekunde!). 

- Man sollte nach dem Setzen eines Feldes im »DEL«-Teil 
mit <L> oder <F1 > abfragen, ob das Problem danach 
noch lösbar ist. 

Klauer 

Der Klauer muß mit »,8,1« geladen werden und wird mit 
SYS 49152 (= $C000) gestartet. Er belegt den Speicherbe¬ 
reich von 

$C000 bis $C680 (= 49152 bis 50816). 

Der Speicherbereich $C800 bis $D000 wird nach dem 
Starten ebenfalls mitbenutzt. 

Durch den Aufruf des Pazzle-Klauers wird Hires ($E000 
bis $FF40, Farbe: $DC00 bis $DFE8) eingeschaltet, ebenso 
wie eine aus 4 Sprites gebildete Box, die genau die Größe 
eines Pazzles besitzt. Folgende Eingaben sind nun mög¬ 
lich: 

<1 > tauscht $E000 bis $FF40 mit $2000 bis $3F40. 
<2> tauscht $E000 bis $FF40 mit $4000 bis $5F40. 
<3> tauscht $E000 bis $FF40 mit $6000 bis $7F40. 

<4> tauscht $E000 bis $FF40 mit $8000 bis $9F40. 
<5> tauscht $E000 bis $FF40 mit $AOOO bis $BF40. 

Mittels der Tasten 1 bis 5 kann man suchen, wo sich im 
Speicher eine Grafik befindet. 

<6> bis <0>: Farbänderung: Mit der Taste 6 kann die 
Rahmenfarbe ($D020) geändert werden. 7, 8, 9 und 0 
bestimmen die Farben. Auch hier können die Farbwerte 
nicht nur erhöht, sondern durch gleichzeitiges Drücken 
von zum Beispiel <CBM> erniedrigt werden. 

< — >: Mono/Multi-Umschaltung: Wechselt zwar intern 
nicht die Farbdarstellung von Sprites (wie im Hauptteil), 
sondern der Grafik, hat aber im Endeffekt die gleiche 
Wirkung. Genaueres ist daher der obigen Hauptteil- 
Beschreibung der Taste < — > zu entnehmen! 

< t >: Box-Farbe: Durch Drücken dieser Taste wird die Box 
besonders bei dunklen Farben wesentlich besser sicht¬ 
bar, weil dadurch ein sehr schneller Wechsel der Box- 
Farben ausgelöst wird. Durch nochmaliges Betätigen 
von < t > kann dieser Farbwechsel wieder ausgeschal- 


tet werden (da dieses Flackern mit der Zeit recht störend 
wirken kann). 

< + > und <->: Boxgeschwindigkeit: Hat man das Ge¬ 
fühl, die Box bewege sich zu schnell beziehungsweise 
zu langsam, so kann man durch Betätigen von < + > 
und <-> die Geschwindigkeit vermindern oder erhö¬ 
hen. Dabei ist nicht die Anzahl der Tastendrücke von 
Bedeutung, sondern deren Dauer! 

< RUN/STOP >: Beendet den Pazzle-Klauer. Ist der Haupt¬ 
teil noch im Speicher, so wird dieser automatisch gestartet 
und das »geklaute« Pazzle wird in diesen übertragen. An¬ 
sonsten erfolgt die Aufforderung, den Hauptteil zu laden. 
Beim erneuten Starten des Klauers werden nur Boxlage 

und Geschwindigkeit neu initialisiert. Die zuletzt eingestell¬ 
ten Farben bleiben erhalten, ebenso wie ein bereits 
»geklautes« Pazzle-Bild. 

Die Bewegung der Box erfolgt ähnlich wie die Ansteue¬ 
rung der Knöpfe im Hauptteil. Entweder man benutzt den 
Joystick in Port 2 oder wie oben beschrieben die Tasten 
<Z>, <X>, <F5> und <F7> beziehungsweise die 
Cursor-Tasten. Die SPACE-Taste entspricht dem Feuerk¬ 
nopf des Joysticks (< RETURN > funktioniert nicht mehr, 
weil damit der Start-SYS abgeschlossen werden muß und 
dadurch unbeabsichtigte Komplikationen entstehen könn¬ 
ten!). 

Der unter der Box liegende Hires-Teil wird nur dann in ein 
Pazzle umgewandelt, wenn < SPACE > (Feuer) gedrückt 
wird. Das Pazzle (= 16 Sprites) kommt nach $CC00 bis 
$D000, und wird nach Drücken der RUN/STOP-Taste in den 
Hauptteil übertragen (-> $0A40 bis $0E40), sollte sich die¬ 
ser im Computer befinden. Man kann den Klauer somit 
auch (zweckentfremdet) dazu verwenden, Grafik in Sprites 
umzuwandeln! 

Da '"eie Hires-Bilder mehr als nur vier Farben verwen¬ 
den, ein Pazzle aber nur maximal vier enthalten darf, eig¬ 
nen sich nicht alle Hires-Bilder als Grundlage für den 
Pazzle-Klauer. Am besten geeignet sind einfarbige und 
digitalisierte Bilder. 

Zusammenfassend sei noch einmal die mögliche Vor¬ 
gehensweise beschrieben, wenn man ein eigenes Pazzle 
entwickeln möchte: 

1) Hires-Bilder laden 

2) LOAD "PAZZLE-KLAUER",8,1 <RETURN> 

3) NEW < RETURN > 

4) SYS 49152 < RETURN > 

5) Hires mit den Tasten 1 bis 5 suchen 

6) < RUN/STOP> drücken 

7) LOAD " PAZZLE-HAUPTTEIL " ,8 

8) SYS 49152 < RETURN > 

9) Farben und Mono/Multi-Darstellung einstellen (Tasten 
6 bis 0 beziehungsweise < — >). 

10) Box über gewünschten Hires-Teil bewegen und 
< SPACE > betätigen. 

11) < RUN/STOP > drücken. Man gelangt nun automa¬ 
tisch in den Hauptteil. 

12) Erstellen einer eigenen Pazzle-Strategie, Einstellen 
der übrigen Farben. 

13) < RUN/STOP > drücken. Bei Bedarf mittels der aufge¬ 
listeten SYS-Befehle einige Funktionen sperren. 

14) Das neue Pazzle mit »SAVE "NAME",8« speichern. 
Der Hauptteil muß stets als letztes geladen werden. Wird 

zum Beispiel der Pazzle-Klauer nach diesem geladen, so 
kann man das (selbsterstellte) Pazzle nicht mehr wie 
beschrieben (Punkt 14) speichern. 

Nach dem Laden des Pazzle-Klauers ist NEW 
<RETURN> einzugeben (Punkt 3), sonst kann man den 
Hauptteil später nicht mehr nachladen (es käme eine. 
»OUT-OF-MEMORY«-Fehlermeldung). 

Viel Spaß beim »Pazzlen«. 
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Name 

: 

pazzle-haupttei1 

0B01 219f 

Obi 1 


02 

00 

00 

02 

OO 

OO 

02 

Of 

7a 

0e31 


55 

56 

55 

55 

5a 

aa 

aa 

aa 

ac 












Ob 19 


f 3 

f 2 

Of 

fb 

f a 

Of 

ff 

fa 

e7 

0e39 


aa 

aa 

aa 

aa 

aa 

aa 

fO 

4c 

95 

0801 

3 

Oc 

08 

c2 

07 

9e 

20 

33 

36 

c7 

0b21 


Bf 

ff 

fa 

af 

fe 

aa 

a7 

5a 

fd 

0e41 


08 

14 

4c 

f 5 

20 

4c 

fb 

20 

ba 

0B09 


34 

38 

00 

00 

00 

ff 

ff 

24 

a2 

Ob 29 


aa 

a5 

5a 

82 

a5 

5a 

02 

a5 

Od 

0e49 


4c 

01 

21 

4c 

07 

21 

4c 

Od 

ad 

0811 


aa 

65 

24 

24 

aa 

ff 

ff 

2f 

04 

0b31 


5a 

02 

a5 

5a 

02 

a5 

5a 

02 

fc 

0e51 


21 

4c 

2b 

21 

4c 

40 

21 

4c 

6b 

081? 


af 

6f 

2f 

2f 

af 

6f 

2f 

f 5 

51 

0b39 


a5 

5a 

02 

a5 

5a 

02 

eO 

95 

a5 

0e59 


50 

21 

ff 

29 

2 a 

2b 

2c 

2d 

66 

0821 


f 5 

f 5 

f 5 

f 5 

f 5 

f 5 

f 5 

ff 

34 

Ob41 


55 

56 

85 

55 

5a 

Bl 

55 

68 

a5 

0e61 


2e 

2f 

30 

31 

32 

33 

34 

35 

51 

0B29 


ff 

55 

55 

55 

55 

55 

35 

24 

70 

0b49 


80 

aa 

aO 

aO 

2 a 

BO 

aB 

OO 

a4 

0e69 


36 

37 

38 

42 

42 

42 

42 

6c 

a? 

0B31 


aa 

65 

24 

24 

aa 

6f 

2f 

24 

47 

0b51 


00 







a9 

a4 

Oe71 


6c 

6c 

6c 

96 

96 

96 

96 

cO 

fb 

0839 


aa 

65 

24 

24 

aa 

f 9 

f 4 

2f 

dO 

0b59 


55 

55 

a5 

55 

55 

95 

75 

55 

ef 

0e79 


cO 

cO 

cO 

Of 

05 

10 

05 

11 

b2 

0B41 


«f 

65 

24 

24 

aa 

65 

24 

ff 

97 

0b61 


95 

fd 

55 

95 

fe 

55 

95 

7a 

e3 

0 e 81 


05 

12 

05 

37 

05 

38 

05 

39 

50 

0849 


ff 

55 

55 

15 

a5 

65 

24 

f 5 

ed 

0b69 


55 

95 

59 

55 

95 

55 

55 

95 

Oe 

0e89 


05 

3a 

05 

Sf 

05 

60 

05 

61 

03 

0851 


+ 5 

55 

55 

55 

55 

55 

55 

24 

8e 

Ob71 


55 

55 

95 

55 

55 

95 

55 

55 

83 

0e91 


05 

62 

05 

87 

OS 

88 

05 

89 

b5 

0859 


6a 

55 

54 

54 

5a 

55 

54 

54 

58 

Ob 79 


95 

55 

55 

95 

54 

00 

eO 

95 

b5 

0e99 


05 

8a 

05 

9f 

06 

aO 

06 

al 

d? 

0B61 


5a 

55 

54 

54 

5a 

55 

54 

aa 

fc 

ObBl 


55 

56 

Oa 

95 

6a 

02 

95 

6a 

18 

Oeal 


06 

a2 

06 

c7 

06 

cB 

06 

c9 

c5 

0869 










68 

ObB9 


00 

aa 

aB 

00 

02 

aB 

00 

00 

6e 

0ea9 


06 

ca 

06 

ef 

06 

fO 

06 

fi 

78 

0871 


ba 

fa 

fd 

fd 

bS 

a6 

aa 

aa 

7a 

0b91 


00 

aa 

aa 

aa 

aa 

aa 

aa 

55 

3c 

Oebl 


06 

f 2 

06 

17 

07 

18 

07 

19 

14 

0879 


8a 

02 

01 

Ol 

85 

a6 

aa 

aa 

f 2 

0b99 


55 

55 

55 

55 

Sa 

55 

55 

55 

99 

Oeb? 


07 

la 

07 

01 

02 

04 

OB 

10 

30 

0881 


ba 

fe 

fd 

fd 

b5 

a6 
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2111 

3 

16 

Bd 

dl 

16 

Bd 

f 6 

16 

Bd 

29 

lc59 


15 

13 

ca 

30 

03 

4c 

dd 

lb 

fl 

leb9 


Oa 

de 

aa 

29 

Of 

18 

69 

2c 

bl 

2119 

3 

bd 

16 

8d 

Cl 

16 

8d 

c5 

16 

Qe 

lc 61 


60 

a2 

09 

bd 

84 

03 

c9 

35 

fe 

lecl 


8d 

99 

04 

8a 

4a 

4a 

4a 

4a 

22 

2121 


8d 

c9 

16 

Bd 

e2 

16 

Bd 

5b 

96 

lc69 


dO 

Oa 

a9 

2 c 

9d 

84 

03 

ca 

ce 

lec9 


18 

69 

2c 

8d 

98 

04 

ad 

Ob 

c9 

2129 

3 

21 

60 

a9 

4c 

8d 

3b 

15 

a9 

c9 

lc71 


10 

fl 

3B 

60 

fe 

84 

03 

18 

e4 

ledl 


de 

29 

Of 

cd 

4e 

03 

fO 

Oe 

9c 

2131 


c4 

8d 

3c 

15 

a9 

14 

8d 

3d 

59 

lc79 


60 

a5 

OB 

85 

fb 

a5 

09 

85 

7b 

led9 


Bd 

4e 

03 

f 8 

ad 

4d 

03 

18 

ef 

2139 


15 

a9 

el 

Bd 

09 

14 

60 

a9 

53 

lcBl 


fc 

ae 

44 

03 

fO 

10 

a5 

fb 

64 

leel 


69 

01 

8d 

4d 

03 

d8 

ad 

4d 

20 

2141 

3 

4c 

Bd 

2b 

15 

a9 

c4 

Bd 

2c 

11 

lcB9 


18 

69 

28 

85 

fb 

aS 

fc 

69 

c4 

lee9 


03 

aa 

29 

Of 

18 

69 

2c 

Bd 

06 

2149 

3 

15 

a9 

14 

Bd 

2d 

15 

60 

a9 

3a 

lc91 


00 

85 

fc 

ca 

dO 

fO 

ae 

43 

c 2 

lef 1 


96 

04 

Sa 

4a 

4a 

4a 

4a 

18 

c6 

2151 

3 

ff 

Bd 

fd 

Of 

20 

2b 

21 

4c 

fl 

lc99 


03 

f 0 

09 

e6 

fb 

dO 

02 

e6 

50 

lef 9 


69 

2 c 

8d 

95 

04 

60 

20 

fd 

4e 

2159 

3 

40 

21 

ad 

5b 

Oe 

49 

ff 

Bd 

47 

lcal 


fc 

ca 

dO 

f 7 

aO 

00 

60 

20 

01 

lfOl 


ld 

a9 

37 

a2 

03 

9d 

Of 

05 

78 

2161 

3 

5b 

Oe 

ad 

5b 

Oe 

Bd 

lc 

dO 

f 9 

lca9 


36 

17 

ad 

4b 

03 

dO 

13 

ae 

aO 

lf 09 


9d 

37 

05 

9d 

5f 

05 

9d 

87 

da 

2169 

3 

60 

a9 

28 

8d 

00 

dO 

Bd 

OB 

26 

lcbX 


49 

03 

ac 

4a 

03 

Be 

43 

03 

aB 

lf 11 


05 

9d 

9f 

06 

9d 

c7 

06 

9d 

f 9 

2171 

8 

dO 

a9 

58 

8d 

02 

dO 

Bd 

Oa 

cf 

lcb9 


Bc 

44 

03 

a9 

öf 

aO 

05 

4c 

00 

lf 19 


ef 

06 

9d 

17 

07 

ca 

10 

e5 

28 

2179 

3 

dO 

a9 

BB 

Bd 

04 

dO 

Bd 

Oc 

07 

lccl 


d3 

lc 

ae 

45 

03 

ac 

46 

03 

ab 

lf 21 


60 

ad 

Bd 

02 

c9 

07 

dO 

11 

36 

2181 

3 

dO 

a9 

b8 

Bd 

06 

dO 

8d 

Oe 

3f 

lcc9 


Be 

43 

03 

Bc 

44 

03 

a9 

9f 

Bd 

lf 29 


ad 

42 

03 

dO 

Oc 

20 

61 

la 

4e 

2189 

3 

dO 

78 

a9 

7c 

aO 

18 

Bd 

14 

ba 

lcdl 


aO 

06 

85 

OB 

B4 

09 

20 

9d 

23 

lf31 


a5 

c5 

c9 

37 

fO 

fa 

20 

73 

60 

2191 

3 

03 

8c 

15 

03 

ad 

la 

dO 

09 

81 

lcd9 


16 

a9 

82 

85 

07 

20 

df 

ld 

40 

lf39 


la 

60 

ad 

3f 

03 

c9 

02 

bO 

bf 

2199 

8 

01 

Bd 

la 

dO 

58 

60 

00 

00 

8a 

lcel 


c6 

07 

dO 

f 9 

a9 

lc 

48 

a9 

Be 

lf 41 


04 

ee 

3f 

03 

60 

a9 

00 

8d 

5b 












lce9 


d6 

4B 

20 

df 

ld 

20 

5f 

13 

5e 

lf 49 


3f 

03 

ad 

40 

03 

c9 

05 

bO 

71 












lcf 1 


90 

20 

4B 

20 

fd 

ld 

68 

6a 

e7 

lf 51 


04 

ee 

40 

03 

60 

a9 

00 

8d 



































Listing 1. 

»Pazzle Haupteil« (SchluB) 


Name s pazzle-klauer cOOO c6B0 


cOOO 

s 

a9 

19 

Bd 

3e 

03 

ad 

00 

dd 

ba 

c008 

: 

29 

fc 

8d 

00 

dd 

ad 

11 

dO 

44 

cOlO 

: 

09 

20 

Bd 

11 

dO 

ad 

07 

c5 

dl 

c 018 

a 

fO 

08 

ad 

16 

dO 

09 

10 

8d 

eb 

c 020 

: 

16 

dO 

a9 

78 

Sd 

1B 

dO 

a9 

48 

C028 

: 

Of 

8d 

15 

dO 

a9 

00 

Bd 

17 

5c 

c030 

: 

dO 

Bd 

ld 

dO 

Bd 

lc 

dO 

8d 

40 

c038 

: 

lb 

dO 

B5 

fa 

Bd 

27 

dO 

8d 

ec 

c040 

: 

28 

dO 

8d 

29 

dO 

8d 

2a 

dO 

ld 

c04B 

: 

Bd 

3f 

03 

7B 

a9 

34 

85 

01 

99 

c050 

: 

a2 

16 

8e 

fB 

df 

eS 

Be 

f 9 

33 

c058 

: 

df 

e8 

Be 

f a 

df 

e8 

Be 

f b 

26 

c060 

: 

df 

a9 

37 

85 

01 

58 

a9 

08 

lc 

c068 

: 

85 

f 9 

a9 

25 

Bd 

3c 

03 

4c 

5B 

C070 

: 

Oa 

cl 

a5 

f 9 

a8 

Bd 

00 

dO 

9c 

c07B 

: 

8d 

04 

dO 

18 

69 

68 

8d 

02 

53 

cOBO 

3 

dO 

8d 

06 

dO 

ad 

3c 

03 

Sd 

96 

c 088 

: 

01 

dO 

Bd 

03 

dO 

18 

69 

59 

db 


c090 

1 

8d 

05 

dO 

8d 

07 

dO 

a5 

fa 

09 

c09B 

: 

dO 

Oc 

cO 

98 

bO 

04 

a9 

00 

83 

cOaO 

8 

fO 

06 

a9 

Oa 

dO 

02 

a9 

Of 

21 

cOaB 

8 

Bd 

10 

dO 

60 

a9 

eO 

Bd 

02 

59 

cObO 

8 

de 

ad 

00 

de 

a 2 

ff 

Be 

02 

67 

c 0 b 8 

: 

de 

29 

7f 

c9 

7f 

fO 

02 

3B 

3a 

cOcO 

8 

60 

a5 

c5 

c9 

06 

fO 

lf 

c9 

95 

cOcB 

: 

03 

fO 

lf 

c9 

Oc 

fO 

lf 

c9 

9d 

cOdO 

8 

17 

fO 

24 

c9 

3c 

fO 

24 

c9 

li 

cOdS 

3 

02 

fO 

17 

c9 

07 

fO 

02 

18 

8? 

cOeO 

8 

60 

ad 

8d 

02 

fO 

04 

•9 

3e 

Od 

c 0 e 8 

3 

38 

60 

a9 

3d 

38 

60 

a9 

3b 

06 

cOfO 

3 

38 

60 

ad 

Sd 

02 

dO 

f 7 

a9 

4f 

cOf 0 

X 

37 

38 

60 

a9 

2f 

38 

60 

aO 

10 

clOO 

3 

OO 

a2 

00 

ca 

dO 

fd 

88 

dO 

6b 

clOB 

8 

f 8 

60 

20 

72 

cO 

20 

04 

c 2 

29 

cllO 

3 

a9 

cl 

48 

a9 

9a 

48 

20 

ff 

4d 

cl 18 

8 

c2 

20 

ac 

cO 

90 

lb 

6a 

bO 

la 

cl20 

3 

03 

4c 

b6 

cl 

6a 

bO 

03 

4c 

00 

cl28 

3 

cl 

cl 

6a 

bO 

03 

4c 

e7 

cl 

30 


cl30 

t 

6a 

bO 

03 

4c 

cc 

cl 

4c 

16 

75 

cl38 

8 

c3 

85 

02 

68 

6B 

a9 

cl 

48 

b7 

cl40 

8 

a9 

a7 

48 

a2 

00 

bd 

oa 

c5 

bd 

cl4B 

3 

c9 

ff 

10 

17 

cS 

02 

fO 

03 

66 

c!50 

1 

eB 

dO 

f 2 

8a 

Oa 

aa 

bd 

15 

c5 

c 1 30 

8 

c5 

BS 

fb 

bd 

16 

c5 

BS 

fc 

36 

c 160 

■ 

6c 

fb 

00 

68 

68 

aS 

02 

c9 

26 

c!6Q 

3 

2B 

fO 

Oe 

c9 

2b 

fO 

lc 

c9 

03 

C170 

3 

3f 

fO 

03 

4c 

10 

cl 

4c 

eb 

8a 

Ci7B 

1 

c3 

ad 

3e 

03 

c9 

ff 

fO 

03 

6B 

C10O 

1 

ee 

3e 

03 

aO 

05 

20 

01 

cl 

3b 

ciae 

8 

4c 

10 

cl 

ad 

3e 

03 

fO 

03 

c8 

cl90 

3 

ce 

3e 

03 

aO 

05 

20 

01 

cl 

2b 

C19B 

8 

4c 

10 

cl 

20 

72 

cO 

ac 

3e 

bd 

claO 

3 

03 

c8 

20 

01 

cl 

4c 

10 

cl 

72 

cla8 

3 

20 

04 

c2 

20 

72 

cO 

aO 

90 

50 

clbO 

3 

20 

01 

cl 

4c 

10 

cl 

ad 

3c 

89 
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C64 


STRATEGIE-SPIELE 


ciba 

: 

03 

c9 

26 

90 

03 

ce 

3c 

03 

d9 

C350 

S 

ee 

20 

dO 

a5 

06 

18 

69 

OB 

Oe 

c4eB 


20 

20 

20 

20 

20 

20 

20 

20 

e8 

clcO 

: 

60 

ad 

3c 

03 

c9 

99 

bO 

03 

98 

c358 

s 

85 

06 

90 

02 

e6 

07 

e8 

eO 

51 

c4f 0 


20 

48 

41 

55 

50 

54 

54 

45 

b3 

clc8 


ee 

3c 

03 

60 

ad 

07 

c5 

fO 

ad 

c360 

: 

Od 

90 

eB 

aS 

03 

29 

07 

fO 

lc 

c4f 8 


49 

4c 

20 

4c 

41 

44 

45 

4e 

el 

cldO 


03 

20 

d4 

cl 

a9 

e8 

c5 

f 9 

3d 

c36B 

3 

Oc 

a8 

a 2 

Oc 

3e 

40 

03 

ca 

7a 

c500 


20 

21 

3f 

21 

11 

11 

00 

01 

40 

cldS 

: 

dO 

06 

a9 

00 

cS 

fa 

fO 

06 

la 

c370 

8 

10 

fa 

88 

dO 

f5 

aO 

Ob 

b9 

3d 

c508 


13 

18 

lb 

20 

23 

39 

38 

3b 

46 

cleO 

: 

e6 

f 9 

dO 

02 

e6 

fa 

60 

ad 

5a 

c378 

3 

40 

03 

91 

fb 

88 

10 

fB 

a5 

56 

c510 


08 

Ob 

10 

36 

ff 

52 

c 2 

56 

b3 

cleB 

: 

07 

c5 

fO 

03 

20 

ef 

cl 

aS 

42 

c380 

3 

fb 

18 

69 

Oc 

85 

fb 

90 

02 

e2 

c51B 


c2 

5a 

c2 

5e 

c 2 

62 

c 2 

9f 

Od 

cif 0 

: 

f 9 

c9 

08 

dO 

06 

a5 

fa 

c9 

f 7 

c388 

3 

F--6 

fc 

e6 

05 

c6 

02 

10 

af 

63 

c520 


c 2 

b6 

c 2 

ba 

c2 

be 

c2 

c 2 

fB 

cif 8 

3 

00 

fO 

OB 

aS 

f 9 

dO 

02 

c6 

e3 

c390 

3 

a9 

00 

85 

fd 

a9 

cc 

BS 

fe 

6f 

c52B 


c2 

c6 

c 2 

Od 

c3 

Oc 

Ob 

Of 

86 

c200 

3 

fa 

c6 

f 9 

60 

78 

a9 

34 

85 

98 

c398 

3 

aO 

00 

98 

85 

OB 

a6 

08 

bd 

60 

c530 


00 

Of 

eO 

el 

e2 

e3 

e5 

e6 

df 

c208 

3 

01 

a 2 

00 

ad 

2d 

cS 

29 

Of 

d4 

c3a0 

8 

c4 

c4 

85 

fb 

bd 

d4 

c4 

85 

48 

c538 


e7 

e8 

ea 

eb 

ec 

ed 

of 

fO 

ab 

c 210 

3 

8d 

3d 

03 

ad 

2e 

c5 

Oa 

Oa 

00 

c3a8 

3 

fc 

a9 

14 

es 

02 

a 2 

02 

bl 

cf 

c540 


fl 

f 2 

f 4 

f3 

f 6 

f 7 

f 9 

fa 

b3 


t 

Oa 

Oa 

Od 

3d 

03 

9d 

00 

de 

e9 

c3b0 

3 

fb 

91 

fd 

•6 

fb 

dO 

02 

e6 

ec 

c54B 


fb 

fc 

fe 

ff 

00 

40 

80 

cO 

06 

c220 

3 

9d 

oo 

dd 

9d 

00 

de 

9d 

eB 

28 

c3bB 

: 

fc 

e6 

fd 

dO 

02 

e6 

fe 

ca 

aa 

c550 


00 

40 

80 

cO 

oo 

40 

80 

cO 

2 e 

c22B 

8 

de 

ca 

dO 

fl 

a9 

37 

B5 

01 

4a 

c3c0 

8 

10 

ed 

aS 

fb 

18 

69 

09 

85 

ac 

c55B 


00 

40 

80 

cO 

00 

40 

80 

cO 

36 

c230 

3 

SB 

a2 

00 

ad 

2f 

c5 

9d 

00 

27 

c3cB 

3 

fb 

90 

02 

e6 

fc 

c6 

02 

10 

97 

c560 


00 

40 

80 

cO 

00 

40 

6e 

05 

7e 

C23B 

8 

dB 

9d 

00 

d9 

9d 

00 

da 

9d 

9b 

c3d0 

3 

de 

e6 

fd 

dO 

02 

e6 

fe 

e6 

da 

c56B 


6f 

66 

07 

13 

01 

13 

15 

12 

50 

c240 

8 

eS 

da 

eB 

dO 

fl 

ad 

31 

cS 

c6 

c3dB 

E 

08 

a5 

OB 

c9 

10 

90 

bc 

a9 

ba 

c570 


66 

77 

7f 

7e 

70 

66 

04 

lf 

ca 

c248 

3 

Bd 

20 

dO 

ad 

30 

c5 

Bd 

21 

79 

c3e0 

8 

37 

85 

01 

58 

ad 

3d 

03 

Bd 

11 

c578 


66 

00 

14 

07 

Ob 

Of 

66 

67 

56 

c2S0 

3 

dO 

60 

a2 

04 

dO 

Oe 

a 2 

03 

87 

c3e8 

3 

20 

dO 

60 

20 

a4 

c4 

bO 

65 

8a 

c580 


00 

00 

00 

00 

00 

00 

00 

00 

81 

c258 

3 

dO 

Oa 

a2 

02 

dO 

06 

a2 

01 

eO 

c3f 0 

3 

a 2 

00 

bd 

00 

cc 

9d 

40 

Oa 

dO 

c588 


00 

00 

00 

00 

00 

oo 

00 

00 

89 

c260 

8 

dO 

02 

a2 

00 

ad 

8d 

02 

dO 

cb 

c3f 8 

: 

bd 

00 

cd 

9d 

40 

Ob 

bd 

00 

30 

c590 


00 

00 

00 

00 

00 

00 

00 

00 

91 

C26B 

8 

04 

fa 

2d 

c5 

60 

de 

2d 

c5 

2d 

c400 

8 

ce 

9d 

40 

Oc 

bd 

00 

cf 

9d 

85 

c598 


00 

00 

00 

00 

00 

00 

00 

00 

99 

c270 

3 

60 

a5 

05 

4a 

4a 

4a 

aa 

bd 

4b 

c408 

3 

40 

Od 

ca 

dO 

e5 

ad 

07 

c5 

Of 

cSaO 


00 

00 

03 

ff 

00 

03 

ff 

00 

79 

c278 

8 

4c 

c5 

05 

06 

bd 

32 

c5 

18 

7e 

c410 

8 

fO 

2 e 

ad 

2 e 

c5 

Bd 

35 

Oa 

fa 

c5a8 


03 

00 

00 

03 

00 

00 

03 

00 

18 

c280 

3 

65 

04 

B5 

07 

a5 

03 

29 

f8 

33 

c418 

8 

ad 

2f 

c5 

8d 

36 

Oa 

ad 

20 

2b 

c5b0 


00 

03 

00 

00 

03 

00 

00 

03 

68 

c28B 

3 

18 

65 

06 

85 

06 

90 

02 

Eh 

40 

c420 

8 

dO 

Bd 

30 

Oa 

ed 

21 

dO 

Bd 

46 

c5b8 


00 

00 

03 

00 

00 

03 

00 

00 

91 

c290 

3 

07 

a5 

05 

29 

07 

18 

65 

06 

a3 

c428 

3 

31 

Oa 

ad 

2d 

c5 

a2 

07 

9d 

38 

c5c0 


OO 

00 

00 

00 

oo 

00 

00 

OO 

cl 

c298 

8 

BS 

06 

90 

02 

e6 

07 

60 

ad 

OB 

c430 

a 

37 

Oa 

ca 

10 

fa 

a9 

ff 

8d 

39 

c5c8 


00 

00 

00 

00 

00 

00 

00 

00 

c9 

c2a0 

: 

16 

dO 

49 

10 

8d 

16 

dO 

ad 

9b 

c43B 

8 

5b 

Oe 

20 

7f 

c4 

4c 

40 

Oe 

5e 

c5d0 


00 

00 

00 

00 

00 

00 

00 

00 

dl 

c 2 a 8 

3 

07 

c5 

49 

01 

Bd 

07 

c5 

a5 

78 

c440 

8 

ad 

2d 

c5 

8d 

31 

Oa 

ad 

2 e 

ld 

cSd8 


00 

00 

00 

00 

00 

00 

00 

00 

d9 

c 2 b 0 

3 

f 9 

29 

fe 

B5 

f 9 

60 

aO 

20 

13 

C44B 

8 

c5 

a2 

07 

9d 

37 

Oa 

ca 

10 

e3 

cSeO 


00 

ff 

cO 

00 

ff 

cO 

00 

00 

16 

c 2 bB 

3 

dO 

Oe 

aO 

40 

dO 

Oa 

aO 

60 

60 

c450 

: 

f a 

a9 

00 

+ 0 

e2 

20 

74 

c4 

f 4 

c5e8 


cO 

00 

oo 
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Lify, das Spiel des Lebens 


Das Leben von Zellkulturen läßt sich am besten 
simulieren, wenn man es von einem Computer 
durchspielen läßt. »Lify« ist so eine Simulation, 
die es gestattet, auf einem 96x42 Felder großen 
Spielfeld Gedeih und Verderb der Zellen zu erfor¬ 
schen. Das Programm selbst ist mit vielen 
Zusatzfunktionen versehen, die Eingabe und Ver¬ 
arbeitung wesentlich erleichtern. 

L ify ist in vieler Hinsicht bedienungsfreundlich. Die Ein¬ 
gabe der Kulturen erfolgt mit dem Joystick und wird 
durch Funktionen unterstützt, wie man sie von profes¬ 
sioneller Grafik-Software her kennt: Bildschirm scrollen, 
spiegeln an horizontaler oder vertikaler Achse, Hinterlegen 
von Konstruktionen auf 12 Seiten, Vermischen der Kon¬ 
struktion mit bereits hinterlegten Bildern, Speichern und 
Laden auf/von Diskette eines beliebigen Bereichs der 12 
Seiten, Hardcopy der Kultur in beliebigem Wachstums¬ 
stadium mit Angabe der Generationszahl und des Kultur¬ 
namens. 

Das Konstruktionsfeld wird aus acht Sprites gebildet und 

OSSl? 


umfaßt 96x42 Punkte. Diese Methode spart Rechenzeit 
und Speicherplatz. Die Geschwindigkeit der Funktionen 
hat Priorität, leider gelang es jedoch nicht, die Berechnung 
einer Generation im Lifespiel in weniger als einer Sekunde 
auszuführen (1,5 sec). 

Baut man einen Bildbereich mit Sprites auf, so ist er zwar 
etwas klein und schlechter lesbar, aber einfacher zu bedie¬ 
nen. Darüberhinaus bietet er die Möglichkeit, Text und Gra¬ 
fik gleichzeitig und ungemischt darzustellen. 

Zum Bildaufbau: 

Das Konstruktionsfeld der 96x42 Punkte steht in der 
Mitte des Schirms und wird nur bei Floppybetrieb abge¬ 
schaltet werden. 

Darüber werden die Cursorposition sowie die relative 
Scroll/Shift-Position angezeigt. 

Unter dem Konstruktionsfeld stehen die gewählten 
Editor-Funktionen. 

Bedient wird der Cursor über einen Joystick in Port 2. Die 
Editor-Funktionen werden über <F1>, <F3>, <F5> 
und <F7> ausgelöst, die Editionsmodi (A, B, C und D) 
über <SHIFT>, <CBM> und <CTRL>. 

In der nachfolgenden Tabelle finden Sie alle Funktionen 
übersichtlich gegliedert. 
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STRATEGIE-SPIELE 


C64 


Modus A: 

Del: Punkt löschen (nur bei gedrücktem Feuerknopf) 
Stp: Verzögerte Cursorbewegung (mit quadratischer 
Beschleunigung) 

Shi: Shift (Bildschirm wird verschoben, Randbezirke 
gehen verloren) 

Scr: Scroll (Bildschirm wird verschoben, Randbezirke 
kehren wieder, das Bild bleibt damit erhalten) 

Modus B: 

Clr: Löschen der Konstruktionsseite 

Horn: Cursor in die Mitte des Feldes beziehungsweise 
gerade benutztes Shift/Scroll zurückscrollen 
Mih: Spiegeln der Konstruktionsseite in der Horizontalen 
Miv: Spiegeln der Konstruktionsseite in der Vertikalen 

Modus C: 

Put: Konstruktionsseite im Speicher ablegen 
Get: Konstruktionsseite aus Speicher holen 
Mix: Konstruktionsseite einer Seite im Speicher über¬ 
lagern 

Lif: Konstruktionsseite im Speicher nach den Original¬ 

regeln von Game of Life bearbeiten 

Modus D: 

Lod: Laden von Seiten in den Speicher 
Sav: Speichern von Seiten aus dem Speicher 
Pri: Konstruktionsseite auf BX-80 ausdrucken (mit Kon¬ 

figurationsnamen und augenblicklicher Genera¬ 
tionsnummer) 

Nop: Keine Reaktion (hier kann man erweitern) 


Punkt setzen und löschen wird nur bei Druck des Feuer¬ 
knopfes ausgeführt. Wird versucht, den Cursor über die 
Grenzen des Konstruktionsfeldes hinaus zu bewegen, so 
kommt er an der gegenüberliegenden Seite wieder ins 
Feld. Punkte können auch während der Scroll- und Shift- 
routinen gesetzt und gelöscht werden. Dies ergibt zwar ein 
etwas sonderbares Zeichengefühl, ist aber oftmals sehr 
praktisch, wenn man sich daran gewöhnt hat (diese Zei¬ 
chenmethode zeigt Ihnen auch die hohe Geschwindigkeit 
der Scroll- beziehungsweise Shiftroutinen). 

Es stehen 12 Seiten zur Zwischenspeicherung offen. Die 
nötigen Zahl- und String-Eingaberoutinen erlauben keine 
Fehleingabe. Schreib- und Lesefehler auf der Diskette wer¬ 
den mit den Fehlernummern angezeigt und gelöscht. Sollte 
der Drucker nicht eingeschaltet sein, wird die Routine nicht 
ausgeführt. 

Das Programm ist vollständig in Assembler geschrieben 
worden, existiert als Basic-Lader. Es wird durch RUN nach 
$C000 kopiert (endet bei $CFFF), die nötigen Tabellen und 
Texte stehen wie die 12 Grafikseiten unter dem Basic 
($A000 bis $BFFF). Der Basic-Lader verschiebt den Basic- 
start nach $0A00, da von $0800 bis $09ff die Konstruktions¬ 
grafik angelegt wird. Das Programm wird sofort aufgerufen 
und kann durch <RUN/STOP> abgebrochen werden. 
Man kann dann normal in Basic programmieren (das Direc¬ 
tory der Diskette kann auch eingelesen werden) und zu 
beliebigem Zeitpunkt durch SYS 49152 wieder weiterkon¬ 
struieren, ohne daß bereits erstellte Bilder verloren gegan¬ 
gen wären. Die Konstruktionsseite wird jedoch bei jedem 
Neustart aus »Schönheitsgründen« gelöscht. 

(G. Degenfelder/og) 
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15b9 3 cf ad 3d 09 Bd el cf ad 52 
lScl s 3e 09 Bd e2 cf ad 7c 09 b2 
15c9 s Bd e3 cf ad 7d 09 Bd e4 11 
15dl s cf ad 7e 09 Bd e5 cf ad da 

Listing 1. »Lify» geben Sie bitte 
mit dem MSE ein 
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Listing 1. »Lify« geben Sie bitte 
mit dem MSE ein. (Schluß) 
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C64 


STRATEGIE-SPIELE 


Das Spiel der Könige! 


Eines der bekanntesten und beliebtesten Brett¬ 
spiele ist Schach. Hier finden Sie ein Spiel, das 
Ihnen durch seine Vielseitigkeit, Stärke und 
Grafikunterstützung viel Spaß machen wird. 

E in Spiel, das immer wieder fasziniert, ist wohl Schach. 
Das folgende Programm (Listing) ersetzt Ihnen den 
Partner. Es zeichnet sich durch grafische Unterstüt¬ 
zung, wählbare Spielstärke und Bedienungsfreundlichkeit 
aus. 

Nach dem Abtippen und Speichern läßt sich dieses 
Maschinenprogramm mit SYS 4132 starten. Die Bedienung 
erfolgt über einen Joystick in Port 2. 

Nachdem sich das Programm vorgestellt hat, fragt es 
nach der Spielfarbe und dem Schwierigkeitsgrad. Außer¬ 
dem wird erfragt, ob ein neues Spiel begonnen oder eine 
Schachstellung eingegeben werden soll. Das Programm 
erklärt sich hier selbständig. 

Wurde »Alter Position« anstatt »New Game« gewählt, 
kann eine beliebige Schachstellung mit Hilfe eines mit dem 
Joystick beweglichen Kästchens und der Tastatur eingege¬ 
ben werden. Auch hier erklärt sich das Programm selbst 
(Bild 1). Zu erwähnen wäre allerdings, daß illegale Schach¬ 
stellungen nicht anerkannt werden (Meldung: »Wrang 
Position«). 

Illegale Positionen wären beispielsweise Bauern auf der 
ersten oder achten Reihe, falsche Königsanzahl oder auch, 
wenn die Partei, die nicht am Zug ist, im Schach steht. Am 
Zug ist immer die Partei, die nach Drücken der E-Taste 
(End) im Rahmen abgebildet wird. 


ALTER POSITION 


E = END Fl = BLACK 

C = CLEAR F3 = WHITE 

Bild 1. So präsentiert sich das Programm, wenn eine neue 
Spieiposition eingegeben wird 

Der letzte Punkt wäre das eigentliche Dialogfeld, in dem 
eigene und vom Computer gewählte Züge ausgeführt wer¬ 
den (Bild 2). 

Je nachdem, welche Spielfarbe am Anfang gewählt 
wurde und welche Rahmenfarbe gerade zu sehen ist, ist 
der Spieler oder der Computer am Zug. 

Hat beispielsweise der Computer einen Zug gemacht, 
wechselt die Rahmenfarbe auf die Spielfarbe, die jetzt am 
Zug ist. Der vom Computer getätigte Zug wird in dem Feld 
»Last Move« angezeigt. Außerdem sieht man im Feld »BE« 
die Bewertung, im Feld »L« den gewählten Level und bei 


Q = # 
K = ^ 
R = I 
B = & 
N = * 
P = 1 



»M« die Anzahl der vom Spieler ausgeführten Züge. Mit den 
drei Tastenbefehlen <M>, <N> und <R> können ein 
Reset und ein neues Spiel ausgelöst werden, oder der 
Computer kann dazu gebracht werden, daß er anstelle des 
Spielers einen Zug macht. Dies funktioniert jedoch nur, 
wenn der Computer nicht gerade »überlegt«. 

Mit Hilfe des Joysticks können eigene Züge eingegeben 
werden. Dazu wird das Kästchen über die zu ziehende 
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6 M=MOUE 

5 N=NEM GAME 
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Bild 2. Das Spielfeld von »Schach 1.0« 


Figi ,r gebracht und der Feuerknopf einmal gedrückt. 
Genauso gibt man das Zielfeld an. Das Programm führt den 
Zug aus, und der Computer überdenkt seinen nächsten 
Zug. Natürlich nimmt das Programm keine illegalen Züge 
an (das Programm kennt alle Schachregeln!). 

Wurde ein illegaler Zug versucht, muß die Eingabe wie¬ 
derholt werden. 

Allgemeine Daten 

Die Bedenkzeiten des Programms: 

Level 1=1 Minute 
Level 2=3 Minuten 
Level 3=6 Minuten 
Level 4 = 20 Minuten 

Je nach Schwierigkeit der Stellung können die Zeiten 
mehr oder weniger stark abweichen. Es wird empfohlen, 
Level 4 nur bei Stellungsanalysen zu verwenden. 

Der Speicher des C64 ist wegen der vielen Tabellen und 
Variablen fast vollständig belegt. Dabei benötigt die Zug¬ 
liste bereits über 4 KByte Speicherplatz. 

Es existieren auch noch einige interessante POKEs: 

- POKE 50183,1: Bewertungsroutine aus. Das Programm 
bewertet nur noch das Materialverhältnis. 

- POKE 17001 ,X: Hiermit läßt sich die Schriftfarbe verän¬ 
dern (X von 0 bis 15). 

- POKE 8824,h:POKE 8829,1: Hier läßt sich die Rechenge¬ 
schwindigkeit bei Level 4 einstellen, indem die Anzahl der 
zu berechnenden Stellungen mit »h« und »I« gePOKEt 
werden kann (h=High-Byte, l=Low-Byte). Es wird aller¬ 
dings eine Mindestanzahl von Zügen berechnet (h=0, 
1=0). Dies hat zur Folge, daß das Programm nicht hyper¬ 
schnell ist. 

Die POKEs müssen vor dem ersten Aufruf des Pro¬ 
gramms gePOKEt werden. Falls man etwa durch einen 
Reset (R-Taste) das Programm verlassen hat, muß ein Neu¬ 
start mit SYS 39327 erfolgen. 

(Frank Rubner/dm) 
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STRATEGIE-SPIELE 


Mankomania, 
das Spiel um Verluste 


Spielen Sie gern Monopoly? Wenn es Ihnen liegt, 
dann sollten Sie sich einmal in Mankomania ver¬ 
suchen. Verschleudern Sie Ihr Geld. Geben Sie 
eine Million auf dem schnellsten Weg aus. Das ist 
leicht gesagt, aber nur schwer zu realisieren. 

B is zu vier Mitspieler können in Mankomania versu¬ 
chen, eine Million sinnlos zu verspielen. Aktienge¬ 
schäfte, Glücksspiel, Schenkungen und Spenden 
unterstützen diesen Versuch. Allerdings kann man auch 
sehr viel Geld gewinnen, sehr zur Freude der Mitspieler. 
Die größten Gewinn- und Verlustchancen bieten sich in den 
Ecken des Spielfeldes, dort warten die Börse, das Auto¬ 
rennen und zwei Casinos auf den unglücklichen Gewinner. 

Das Spiel Mankomania (Listing) ist nur auf dem C128 
lauffähig. Geben Sie es bitte ganz normal in Basic ein, 
lesen Sie aber bitte trotzdem die Eingabehinweise für den 
Checksummer auf Seite 159. 

Nach dem Start werden die Daten für Sprites und Figur¬ 
positionen eingelesen. Während dessen erscheint das 
Titelbild. Danach folgt eine kurze Einleitung, worauf Sie 
gebeten werden, die Anzahl der Mitspieler einzugeben. Es 
können bis zu vier Personen mitspielen. Sind weniger als 
vier Mitspieler vorhanden, übernimmt der Computer die 
restlichen Spieler. Geben Sie nun noch die Namen der 
Spieler ein. Falls der Computer benötigt wird, gibt er sich 
selbst die Namen (zum Beispiel Computer 1). 

Nun erscheint das Spielfeld. Es besteht aus gelben und 
orangen Feldern; in den Ecken befinden sich die Glücks¬ 
spiele. In der Mitte werden der Name des Spielers, sein 
Kapital und die Anzahl seiner Aktien angezeigt. Darunter 
befinden sich zwei Anzeigefelder und die Würfelanzeige. 

Drücken Sie nun < SPACE >, um zu würfeln. Stehen die 
Augen fest, wird die Figur zum Zielfeld bewegt. Kommen 
Sie an einem Glücksspielfeld vorbei, werden Sie gefragt, 
ob Sie spielen wollen. Ist der Computer dran, so entschei¬ 
det er selber, ob er spielen will oder nicht. Kommen Sie auf 
ein gelbes Feld, so erhalten Sie eine Meldung und müssen 
zahlen oder bekommen Geld. Manchmal müssen Sie ein 
kleines Spiel spielen. 

Landen Sie auf einem orangen Feld, so werden Sie auf¬ 
gefordert, zu einem der Glücksspiele zu gehen. 

Zwei gelbe Felder weisen eine Besonderheit auf: 

1. »Würfle mit einem Würfel. Für eine 6 bekommst Du 
10000 Mark« 

Drücken Sie < SPACE >, um zu würfeln. Der Computer 
würfelt selber. Bei einer 6 bekommen Sie 10000 Mark. 

2. »Verwöhne einen Mitspieler mit 5000 Mark!« (Bild). Sie 
werden gefragt, wer das Geld bekommen soll. Nicht vor¬ 
handene Namen und Namen von bankrotten Spielern wer¬ 
den nicht akzeptiert. 

Werden Sie gefragt, ob Sie ein Glücksspiel spielen wol¬ 
len (am Tor zum Spiel), so können Sie sich entscheiden, ob 
ja oder nein. Kommen Sie jedoch auf ein oranges Feld, so 
müssen Sie spielen. 

1. Spiel-Casino 

Zuerst müssen Sie am Automaten spielen. Der Einsatz 
beträgt 2000 Mark. Drücken Sie < SPACE >, um das Spiel 
zu starten. Sind die Felder gefallen, so gewinnen Sie: 



Bild. Verschleudern Sie Ihr Geld bei Mankomania 


50000 Mark bei 2 gleichen Feldern 
150000 Mark bei 3 gleichen Feldern 
300000 Mark bei 3 Dollar-Feldern 
nichts bei 3 verschiedenen Feldern 

Drücken Sie < SPACE >, um das magische Roulette zu 
starten. Zuerst müssen Sie sich entscheiden, ob Sie auf 
Zahl, 1 > itzend oder Farbe setzen wollen. Dann wählen Sie 
die Zahl (0 bis 36), das Dutzend (1 bis 3), die Farbe Rot 
(Rot/Schwarz), auf welches Sie setzen wollen. 

Der Einsatz beträgt: 

5000 Mark bei Zahl 
20000 Mark bei Dutzend 
50000 Mark bei Farbe 

Drücken Sie < SPACE >, um das Roulette zu starten. 
Haben Sie gewonnen, hängt die Höhe des Gewinns davon 
ab, worauf Sie gesetzt haben. Sie gewinnen bei 
Zahl 150000 Mark 

Dutzend 100000 Mark 

Farbe 80000 Mark 

Drücken Sie < SPACE >, um das Casino zu verlassen. 

2. Aktienbörse 

Dieses Spiel lohnt sich natürlich nur, wenn Sie Aktien 
besitzen. 

Auf Druck von < SPACE > wird das Spiel gestartet. Steht 
der Kurs fest, so entscheidet sich, ob Sie gewonnen oder 
verloren haben: 

Fallender Kurs: -15000 Mark mal Anzahl der eigenen 
betreffenden Aktien 

Steigender Kurs: +15000 Mark mal Anzahl der eigenen 
betreffenden Aktien 

Hochkonjunktur: +15000 Mark mal Anzahl aller eigenen 
Aktien 

Drücken Sie < SPACE >, um die Börse zu verlassen. 

3. Böse 1 

Sie haben die Aufgabe, mit 2 Würfeln zu würfeln. 
Drücken Sie dazu < SPACE >, worauf die Würfel sich in 
Bewegung setzen. Haben Sie eine Eins geworfen, bekom¬ 
men Sie 100000 Mark. Haben Sie einen Einerpasch gewor¬ 
fen, bekommen Sie 300000 Mark. Würfeln Sie keine Eins, 
verlieren Sie 2500 Mark mal die gesamte Augenzahl. War 
keine Eins vorhanden, können Sie noch einmal würfeln. 
Auf Druck von <SPACE> verlassen Sie die »Böse 1«. 
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4. Autorennen 

Beim Autorennen fahren vier Autos um die Wette, die 
unterschiedliche Gewinnchancen haben. 

Zuerst werden Sie gefragt, auf welches Auto Sie wieviel 
setzen wollen. Das erste Auto hat die höchsten Gewinn¬ 
chancen, das vierte die geringsten. Drücken Sie dann 
< SPACE>, um das Rennen zu starten. Steht der Sieger 
fest, so wird geprüft, ob Sie richtig getippt haben. Wenn ja, 
gewinnen Sie: 

bei Auto 1: Einsatz mal zwei 
bei Auto 2: Einsatz mal drei 
bei Auto 3: Einsatz mal vier 
bei Auto 4: Einsatz mal fünf 

Zusätzlich zu den gelben und den orangen Feldern gibt 
es noch die blauen Hotelfelder und die Lotterie. Kommen 
Sie auf ein Hotelfeld, so gibt es drei Möglichkeiten: 

1. Besitzen Sie noch kein Hotel und ist das Hotel noch 


frei, so müssen Sie es für den angegebenen Preis kaufen. 

2. Das Hotel ist bereits verkauft. Sie müssen dann den 
angegebenen Zimmerpreis an den Besitzer zahlen. 

3. Das Hotel gehört Ihnen oder Sie haben ein anderes 
Hotel und das Hotel gehört keinem, so bezahlen Sie nichts. 

Wenn ein Spieler »pleite« ist, wird sein Hotel, falls er 
eines besitzt, zum Verkauf freigegeben. 

Kommen Sie an dem Lotteriefeld vorbei, können Sie 
5000 Mark in die Lotterie einzahlen. Auf zwei der gelben 
Felder ebenfalls. 

Kommen Sie direkt aufs Lotteriefeld, bekommen Sie das 
Geld aus der Lotterie. 

Ist ein Spieler bankrott, wird ein Tusch gespielt. Er wird 
aus dem Spiel entfernt und sein Hotel zum Verkauf freige¬ 
geben. Sind drei Spieler bankrott, werden das Endresultat 
sowie die Namen und die Zeit der Spieler bis zum Bankrott 
angezeigt. (M. Fellenberg/og) 


i 0 rem"********************************* 

500 DATA00,00,00,00,00,00,00,00 

20 REM"***I27SPACE>*** 

510 DATA00,00,00,00,00,00,00,00 

30 REM"***<4SPACEJfl fl & i. fl fl fl fl i<SHF.SPAC 

520 DATA3C,00,00,7E,00,00,FF,00 

E>fl{4SPACE>*** 

530 DATA01,FF,80,00,FF,00,00,7E 

40 REM"*** C3SPACE>-C3SPA 

540 DATA00,00,7E,00,00,DB,00, 00 

CE>*** 

550 DATADB,00,01,DB,80,01,C1,B0 

50 REM"*** I27SPACEJ*** 

560 DATA03,FB,C0,03,FB,C0,07,FB 

60 REM"***{2SPACEJWRITTEN BY fl.flELLENBERS<2S 

570 DATAE0,07,FF,E0,00,00,00,00 

PACEJ*** 

580 DATA00,00,00,00,00,00,0F,00 

70 REM"***I27SPACE>*** 

590 DATA00,0F,00,00,0F,00,70,E7 

B0 REM " *** I5SF'ACE > 1986 C_HF.—.5_Q_F T <5SPACE > * 

600 DATAF0,73,E7,7F,F3,E6,7F,FB 

** 

610 DATAFD,70,FF,FB,76,7F,FF,70 

90 REM"***(27SPACE>*** 

620 DATAFF,E7,7F,FB,E7,7F,F3,E7 

100 REM”********************************* 

630 DATAF0,73,0F,00,70,0F,00,00 

110 BANK 0:F0RI=1T08:MOVSPR I,0,0:NEXT 

640 DATA0F,00,00,00,00,00,00,00 

120 BANK15:P0KE53281,0:POKE53280,0:FAST:PRIN 

650 DATA00,00,00,00,00,00,00,00 

TCHR*<27>;"M"::PRINTCHR*(27>;"E":PRINTEH 

660 9'* TA00, 00, 00,00,00,00,0F, 00 

R$<14):PRINTCHR*<11):GOSUB7790:SLOW 

670 DATA00,0F,00,00,0F,00,70,E7 

130 CLRsDIMPX(70),PY(70): 

680 DATAF0,73,E7,FF,F3,E4,7F,FB 

140 SPRITE 1,1,1,0,0,0,0 

690 DATAFB,B0,FF,FF,B6,7F,FF,70 

150 SPRITE 2,1,7,0,0,0,0 

700 DATAFF,E6,FF,FB,E4,3F,F3,E7 

160 SPRITE 3,1,10,0,0,0,0 

710 DATAF0,73,0F,00,70,@F,00,00 

170 SPRITE 4,1,16,0,0,0,0 

720 DATA0F,00,00,00,00,00,00,00 

180 SPRITE 5,1,8 ,0,0,0,0 

730 DATA00,00,00,00,00,00,00,00 

190 SPRITE 6,1,11,0,0,0,0 

740 DATA00,00,00,00,00,00,0F,00 

200 SPRITE 7,1,14,0,0,0,0 

750 DATA00,0F,00,00,0F,00,70,E7 

210 SPRITE 8,1,15,0,0,0,0 

760 DAT AF 0,73,E6,7F,F3,E5,BF,FB 

220 : 

77© DATAFF,B0,FF,FE,76,7F,FF,B0 

230 BANK 0:FORI=1T08:MOVSPR I,0,0:NEXT 

780 DATAFF,E5,BF,FB,E6,7F,F3,E7 

240 FORA= 35B4TO 4095:READR*:POKEA,DEC<R*):N 

790 DATAF0,73,0F,00,70,0F,00,00 

EXT 

800 DATA0F,©0,00,00,00,00,00,00 

250 BANK15:R$="":A=0: 

810 DAT A00,00,00,00,00,00,00,00 

260 DATA00,00,00,00,00,00,00,00 

820 DATA00,00,00,00,00,00,0F,00 

270 DATA00,00,00,00,00,00,00,00 

830 DATA00,0F,00,00,0F,00,70,E7 

280 DATA3C,00,00,7E,00,00,FF,00 

840 DATAF0,73,E5,BF,F3,E5,BF,FB 

290 DATA01,FF,80,00,FF,00,00,7E 

850 DATAFD,B0,FF,FC,36,7F,FF,B0 

300 DATA00,00,7E,00,00,F7,00,00 

860 DATAFF,E7,BF,FB,E7,BF,F3,E7 

310 DATAE7,00,01,D7,80,01,B7,B0 

870 DATAF0,73,0F,00,70,0F,00,00 

320 DATA03,F7,C0,03,F7,C0,07,F7 

880 DATA0F,00,00,00,00,00,00,00 

330 DATAE0,07,FF,E0,00,00,00,00 

890 DATA00,00,00,00,00,00,00,24 

340 DATA00,00,00,00,00,00,00,00 

900 FORI = 1TO60:READPX <I):NEXT:FORI=1TO60:REA 

350 DATA00,00,00,00,00,00,00,00 

DPY(I):NEXT 

360 DATA3C,00,00,7E,00,00,FF,00 

910 DATA 325,309,293,277,261,245,229,213,197 

370 DATA01,FF,80,00,FF,00,00,7E 

,181,165,149,133,117,101,85,69,53,37,21, 

380 DATA00,00,7E,00,00,C7,00,00 

21,21,21,21,21,21,21,21,21,21,21,37,53,6 

390 DATABB,00,01,FB,80,01,F7,80 

9,85,101,117,133,149,165,181,197 

400 DATA03,EF,00,03,DF,00,07,81 

920 DATA 213,229,245,261,277,293,309,325,325 

410 DATAE0,07,FF,E0,00,00,00,00 

,325,325,325,325,325,325,325,325,325 

420 DATA00,00,00,00,00,00,00,00 

930 DATA 221,221,221,221,221,221,221,221,221 

430 DATA00,00,00,00,00,00,00,00 

,221,221,221,221,221,221,221,221,221 ,221 

440 DATA3C,00,00,7E,00,00,FF,00 

,221,205,189,173,157,141,125,109,93,77,6 

450 DATA01,FF,80,00,FF,00,00,7E 

1,45 

460 DATA00,00,7E,00,00,07,00,00 

940 DATA45,45,45,45,45,45,45,45,45,45,45,45, 

470 DATABB,00,01,FB,80,01,07,80 


480 DATA03,FB,C0,03,BB,00,07,07 

Listing. »Mankomania« für den C128. Bitte beachten Sie 

490 DATAE0,07,FF,E0,00,00,00,00 

die Eingabehinweise des Checksummers auf Seite 159. 
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45,45,45,45,45,45,45,61,77,93,109,125,14 
1,157,173,189,205 / 

950 DI MRO (36) : FORI=0TO36:READRO < I) : NEXT 
960 DATA 0,32,15,19,4,21,2,25,17,34,6,27,13, 
36,11,30,8,23,10,5,24,16,33,1,20,14,31,9 
,22,18,29,7,28,12,35,3,26 
970 HO# (1) = "SANTA fjU": HO* (2) ="SEHBLICK" : HO# ( 
3)=“SUHE SANFT": HO*(4)="HILLA NICHT“ 

980 PRINT"CCLR,WHITE,5SRACEJHILLKOMMEN BEI fl 

iWWWWl ! " 

990 PRINT"{4SPACE}- 

1000 PRINT 

1010 PRINT"£IEL DIESES SPIELS IST ES, MOEGLI 
CHST“ 

1020 PRINT“SCHNELL EINE MILLION ZU VERJUBELN 

1030 PRINT"AN DIESEM SPIEL NEHMEN IMMER 4 £E 
R—" 

1040 PRINT-SONEN TEIL. HENN NICHT GENUG fllT- 

1050 PRINT"SPIELER VORHANDEN SIND, UEBERNIMM 
T DER” 

1060 PRINT"COMPUTER DIE FEHLENDEN MITSPIELER 

1070 PRINT:SLEEP6 

1080 WINDOW 0,10,38,11,1 

1090 PRINT"HIEVIELE .PERSONEN SPIELEN MIT ? V 
";: GETKEYA* 

1100 IFVAL(A*)<1ORVAL(A*)>4THENGOSUB5350:GOT 
01080:ELSE AN=VAL(A*):PRINT"CLEFT > <LEF 
T3";A* 

1110 WINDOW 0,13,33,13,1 
1120 F0RI=1T0AN 

1130 PRINT"MAME SPIELER" ; I;:INPUTNA*<I):IFNA 
* < I > = " "THENGOSUB5350:PRINT"CCLR >";:GOTO 
1130 

1140 PRINT"ICLRi";:NEXTI S46R C 

1150 PRINT"{HOME}";"{HOME}":PRINT"{HOME,13D0 
WNJJN fiRDNUNG. 2EDER BEKOMMT 1.000.000, 

1160 PRINT 

1170 PRINT"ÜND NUN : HIEL SPASS" 

1180 PRINT” {10SPACEJUND GUTE .VERLUSTE ! ■■ 

1190 I FAN< 4THENFORI =AN+1T04 : NA* (I) =■• COMPUTER 
"+STR* (I—AN):NEXT 
1200 SLEEP 3 

1210 FAST:SCNCLR: G0SUB7510:MOVSPR 1,PX(1>,P 
Y(1):MOVSPR 2,PX(20),PY(20):MOVSPR 3,PX 
(31),PY<31>:MOVSPR 4,PX<50>,PY(50) 

1220 F0RI = 1T04:KP CI)=1000000:NEXT:PO(1)=1:PO 
(2)=20:PO(3)=31:PO(4)=50:SN=1:AA=1 
1230 PUDEF " . ,":TI*="000000" 

1240 REM ****************************** 

1250 REM * HAUPTPROGRAMM * 

1260 REM ****************************** 

1270 : 

1280 FAST:G0SUB7510:SLOW :WINDOW 9,3,29,3,1: 
WINDOW 18,5,29,5,1:WIND0W 18,6,29,6,1:W 
INDOW 25,7,29,7,l:WINDOW 25,8,29,8,1:WI 
NDOW 25,9,29,9,1:WIND0W 3,11,36,15,1 
1290 WINDOW 9,17,29,18,1:WINDOW 9,20,14,20,1 
:WINDOW 19,20,21,20,1:WIND0W 24,20,29,2 
0,1 

1300 WINDOW09,3,29,3,1:PRINT"{RVOFF,GREEN3"; 
SN;": ";NA*(SN):WINDOW 17,5,29,5,1:PRIN 
T USING"##,###,###";KP(SN);:PRINT",-": 
1310 WINDOW 18,6,29,6,1:IFHH(SN)>0THENPRINTH 
O*(HH(SN)>: 

1320 WINDOW 25,7,29,7,1: PRINTTR(SN):WINDOW 2 
5,8,29,8,1:PRINTKU(SN):WINDOW 25,9,29,9 
,1:PRINTER(SN):SLOW 

1330 IFAA=1THENAA=0:WINDOW 9,17,29,18,1:PRIN 
T"S£MS£ DRUECKEN, UM":PRINT"ANZUFANGEN. 

":GETKEYA*:SCNCLR 
1340 : 

1350 TEMPO50:PLAY"T6 03 QC C 6" 

1360 TT=TI:FORI=1TO10 


1370 WF <1) = INT <TT*RND(1)):WF(1)=WF(1)/(TT/6) 

:WF(1)=INT(WF <1») + 1:WF(2)=INT <TT*RND(1) 

):WF(2)=WF(2)/(TT/6):WF(2)=INT(WF(2))+l 
1380 WINDOW 9,20,14,20:ONWF<1)GOSUB7370,7380 
,7390,7400,7410,7420:WINDOW 24,20,29,20 
:ONWF(2)GOSUB7370,7380,7390,7400,7410,7 
420 

1390 NEXT 

1400 WINDOW 19,20,21,20,1:AU=0:AU=WF(1)+WF(2 
):PRINT"{RVSON,LIG.GREENI"; : PRINTAU: PRI 
NT"{RVOFF,WHITE >":T=1:PO(SN > =PQ(SN)+1 
1410 REM * 

1420 REM FIGUR BEWEGEN 
1430 REM * 

1440 WINDOW 3,11,36,15 
1450 IFPO(SN)=61THENPO < SN)=1 

1460 MOVSPR SN,PX(PO(SN)),PY(PO(SN >):G0SUB54 
50 

1470 IFPO(SN)=18ANDT< AUTHENGDTO2380 
1480 IFPO(SN)=29ANDT<AUTHENGOTO2470 
1490 IFPO(SN)=48ANDT< AUTHENGOTO25B0 
1500 IFPO(SN)=59ANDT< AUTHENGOTO2670 
1510 IFPO(SN)=11ANDT< AUTHENGOTO2760:REM LOTT 
ERIE DANACH GOTO 3300 
1520 IFT<AUTHENT=T+1:PO(SN)=P0(SN)+1:GOTO145 
0 

1530 : 

1540 PRINT"{RVOFF,WHITE3":WINDOW 3,11,36,15, 
1: 

1550 ONPO(SN)GOSUB5480,5500,5520,5550,5580,5 
600,5630,5690,5730,5760,7150,5810,5840, 
5870,5890,5930,5970,7360,6020,6050,6090 
,6110,6170 

1560 IFPO(SN)>23THENONPO(SN)-23GOSUB6200,622 
0,6250,6280,6300,7360,6350,6380,6410,64 

40.6460.6520.6550.6580.6610.6640.6670.6 
700,6730,6760,6800 

1576 :FPD(SN>>44THEN0NP0(SN)—44G0SUB 6820,68 

40.6890.7360.6980.7020.7070.7090.7120.7 
150,7180,7210,7250,7270,7360,7330 

1580 IFPO(SN)< >18ANDP0(SN)< >29ANDPO(SN)< >48A 
NDF'O (SN) < >59THENSLEEP2 
1590 PRINT"{RVOFF}":ONPO(SN)GOTO1620,1630,16 
50,1660,1670,1680,1690,1720,1840,1850,2 
280,1860,1660,1970,1980,1990,1620,2380, 
2000,2010,1850,2020,1660,1670,2050,2060 
,1620,1970 

1600 IFPO(SN)>2BTHENONPO(SN)-28GOTO2470,2070 
,1630,2080,1850,2090,2120,2130,2280,184 
0,2140,1670,2120,1630,2150,1620,1970,21 
60,2190,2580,2220,2230,1850,1840 
1610 IFPO(SN)>52THEN ONPO(SN)-52GOTO2240,228 
0,2240,2250,1670,2260,2670,2270 
1620 GOTO3010 

1630 TR(SN)=TR(SN)+1:KP.SN)=KP(SN)-100000:WI 
NDOW 18,5,29,5,1:PRINT"{GREEN>":PRINTUS 
ING"##,###,###";KP(SN);:PRINT",-":WINDO 
W 25,7,29,7,1: 

1640 PRINT"{GREEN}":PRINTTR(SN):GOTO2290 
1650 TR(SN)=0:KU(SN)=0:BR(SN)=0:WINDOW 25,7, 
29,7,1:PRINT"{GREEN}":PRINTTR(SN):WINDO 
W 25,8,29,8,1:PRINT"{GREEN}":PRINTKU < SN 
):WINDOW 25,9,29,9,1:PRINT"{GREEN}":PRI 
NTBR(SN):GOTO2290 

1660 KU(SN)=KU(SN)+1:KP(SN)=KP(SN)-100000:WI 
NDOW 25,8,29,8,1:PRINT"{GREEN3":PRINTKU 
(SN):WINDOW 18,5,29,5:PRINT"{GREEN3":PR 
INTUSING"##,###,###";KP(SN);:PRINT",-": 
GOTO2290 
1670 GOTO5130 

1680 KP(SN)=KP(SN)-150000:WINDOW 18,5,29,5,1 
:PRINT"{GREEN}“:PRINTUSING"##,###,###"; 
KP(SN);:PRINT",-":GOTO2290 
1690 IFHH(SN)=0ANDHO<1)=0THENWINDOW 9,17,29, 
18,1:PRINT"{GREEN}MICHT BESETZT.":PRINT 
"SIE MUESSEN ES KAUFEN“:SLEEP1:KP(SN)=K 

Listing. »Mankomania« (Fortsetzung) 
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P(SN)-200000:WINDOW 18,5,29,5^1 ! 

2000 KP(SN>=KP(SN)-25000:WINDOW 18,5,29,5,1: 

1700 IFHH(SN)=0ANDHO(1)=0THENPRINT USING"##, 

PRINT" {GREEN J":PRINTUSING"##,###,###";K 

###,###";KP(SN);:PRINT",—“:HO(1>=SN:HH < 

P(SN);:PRINT",—“:GOTO2290 

SN) = 1:WINDOW 18,6,29,6,1:PRINTHO*(HH <SN 

2010 KP(SN)=KP(SN)—20000: WINDOW 18,5,29,5,1: 

)>:GOTO2290 / 

PRINT"{GREEN J":PRINTUSING"##,###,###";K 

1710 IFHO(l)>0THENKP(SN)=KP(SN>-20000: WINDOW 

P(SN);:PRINT",—":GOTQ2290 

18,5,29,5,1: PR I NT " {GREEN > “ : PR INTUSING " 

2020 IFHH(SN)=0ANDHD(2)=0THENWINDOW 9,17,29, 

##,###,###";KP(SN);:PRINT"KP(HO(l)) 

18,1: PRINT"{GREENJMICHT BESETZT. ": PRINT 

=KP(HO <1))+20000:GOTG2290: ELSE GOTO 229 

"SIE MUESSEN ES KAUFEN":SLEEP1:KP(SN)=K 

0 

P(SN)-150000:WINDOW 18,5,29,5,1 

1720 PRINT"{CLRJ":WINDOW 19,12,22,14,1:PRINT 

2030 IFHH(SN)=0ANDHO(2)=0THENPRINT USING"##, 

"CGREY3,RVSON,3SPACE,RVOFF > {RVSON,3SPA 

###,###";KP(SN);:PRINT":HO(2)=SN:HH( 

CE,RVOFF J {RVSON,3SPACE,RVOFFJ":IFSN< =A 

SN)=2:WINDOW 18,6,29,6,1:PRINTHO*(HH(SN 

N THENWINDOW 9,17,29,18,1:PRINT"{WHITEJ 

)):GOTO2290 

SITTE SPACE DRUECKEN":GETKEYA*:PRINT"<C 

2040 IFHO(2)>0THENKP(SN)=KP(SN)-15000: WINDOW 

LR>":WINDOW 19,12,22,14 

18,5,29,5,1:PRINT"{GREEN J":PRINTUSING" 

1730 IFSN>ANTHENSLEEP1 

##,###,###";KP(SN>;:PRINT":KP(HO(2)) 

1740 T2=l0+INT <5*RND(1))+1 

=KP(HO(2))+15000:GOTO2290:ELSE GOTO 229 

1750 F0RI=1T0T2:T3=INT(6*RND(1))+1:0NT3G0SUB 

0 

1780,1790,1B00,1810,1820,1830: GOSUB5450 

2050 TR(SN)=TR(SN)+1:WINDOW 25,7,29,7,1:PRIN 

:FORZ=1TO20:NEXTZ: NEXTI 

T"{GREENJ":PRINTTR(SN):GOTO2290 

1760 IFT3=6THENWINDOW9,17,29,18,1:PRINT"{WHI 

2060 KP(SN)=KP(SN)-10000:WINDOW 18,5,29,5,1: 

TEJfiEWONNEN !!!":SLEEP 1:KP(SN)=KP<SN>+ 

PRINT"{GREEN J":PRINTUSING"##,###,###"; K 

10000:WINDOW 18,5,29,5,1:PRINT"{GREEN >" 

P(SN);:PRINT",-":GOTO2290 

:PRINTUSING“##,###,###";KP(SN) ; :PRINT", 

2070 KP(SN)=KP(SN)-170000:WINDOW 18,5,29,5,1 

—":GOTO2290 

:PRINT"{GREEN J":PRINTUSING"##,###,###" ; 

1770 WINDOW 9,17,29,18,1:PRINT"{WHITEJSLUECK 

KP(SN);:PRINT",-":GOTO2290 

GEHABT !":SLEEP 1:GOTO2290 

2080 KP(SN)=KP(SN)—100000:WINDOW 18,5,29,5,1 

1780 PRINT"{GREY3,RVSON,3SPACE,RVOFF! {RVSON 

:PRINT"{GREEN J":PRINTUSING"##,###,###"; 

> * {RVOFF> {RVSON,3SPACE,RVOFFJ":RETUR 

KP(SN);:PRINT",-":GOTO2290 

N 

2090 IFHH(SN)=0ANDHO(3)=0THENWINDOW 9,17,29, 

1790 PRINT"{6REY3,RVSONJ*{2SPACE,RVOFF> {RVS 

18,1:PRINT"{GREENJÄICHT BESETZT.":PRINT 

ON,3SPACE,RVOFF J {RVSON,2SPACE J *{RVOFF > 

"SIE MUESSEN ES KAUFEN":SLEEP1:KP(SN)=K 

•': RETURN 

P(SN)-150000:WINDOW 18,5,29,5,1 

1800 PRINT"{GREY3,RVSONJ*{2SPACE,RVOFFJ {RVS 

2100 IFHH(SN)=0ANDHO(3)=0THENPRINT USING"##, 

ON> * {RVOFFJ {RVSON,2SPACEI*{RVOFF >":R 

###,###";KP(SN);:PRINT",:HO(3)=SN:HH( 

ETURN 

SN)=3:WINDOW 18,6,29,6,1:PRINTHO*(HH(SN 

1810 PRINT"{6REY3,RVSONJ* *{RVOFFJ {RVS0N,3S 

> ) r GDTC1229Ö 

PACE,RVOFF> {RVSONJ* *{RVOFFRETURN 

2110 IFHO(3)J0THENKP(SN)=KP(SN)-15000:WINDOW 

1820 PRINT"{GREY3,RVSON!* *{RVOFFJ {RVSONJ * 

18,5,29,5,1:PRINT"{GREEN J":PRINTUSING" 

{RVOFF> {RVSONJ* *{RVOFFJ":RETURN 

##,###,###";KP(SN);:PRINT",-":KP(HO(3)> 

1830 PRINT"{GREY3,RVSON J ***{RVOFF > {RVSON,3S 

=KP(HO(3)> +15000:GOTO2290:ELSE GOTO 229 

PACE,RVOFF J {RVSONJ***{RVOFF J":RETURN 

0 

1840 BR (SN) =BR (SN)+1: KP (SN) =KP (SN) +—100000: W 

2120 LO=LO+50000:KP(SN)=KP(SN)-50000: WINDOW 

INDOW 18,5,29,5,1:PRINT"{GREENJ":PRINTU 

18,5,29,5,1:PRINT"{GREENJ":PRINTUSING"# 

SING"##,###,###";KP < SN);:PRINT"WIND 

#,###,###”;KP(SN);:PRINT",-":GOTO2290 

OW 25,9,29,9,1:PRINT"{GREEN J":PRINTBR(S 

2130 KP(SN)=KP(SN)-180000:WINDOW 18,5,29,5,1 

N):GOTO2290 

:PRINT"{GREEN J":PRINTUSING"##,###,###"; 

1850 GOTO4100 

KP(SN);:PRINT",-":GOTO2290 

1860 IFSNJAN THEN1890 

2140 KP(SN)=KP(SN>+50000:WINDOW 18,5,29,5,1: 

1870 PRINT"{CLRJ";:PRINT"ÜND WER SOLL DER SE 

PRINT"{GREEN J":PRINTUSING"##,###,###";K 

DAUERNSWERTE": PRINT"SEIN ";:GOTO 1910 

P(SN);:PRINT",-":GOTO2290 

1880 PRINT"IDOWN,RIGHT,WHITEJiN SRDNUNG !":K 

2150 KP(SN)=KP(SN)+10000:WINDOW 18,5,29,5,1: 

P <SN)=KP(SN)-5000:KP(11)=KP(11)+5000:WI 

PRINT"{GREEN J":PRINTUSING“##,###,###";K 

NDOW 19,5,29,5,1:PRINT"{GREEN J":PRINTUS 

P(SN);:PRINT",—":GOTO2290 

ING" ## ,###,###";KP(SN);:PRINT",—":G0T02 

2160 F0RI=1T04 

290 

2170 IFI< JSNTHENKP(I)=KP(I)-5000:KP(SN)=KP(S 

1890 I1=INT(4*RND(1>)+l:IFKP(Il)J0THENPRINT" 

N)+5000:WINDOW 18,5,29,5,1:PRINT"{GREEN 

{CLRJ";:PRINT"{DOWN,RIGHT,WHITEJNA*(I 

J":PRINTUSING"##,###,###";KP(SN);:PRINT 

1);" BEKOMMT DIE ÜAERKER.":SLEEP 1:WIND 

II _II 

1 

OW 18,5,29,5,1:KP < SN)=KP < SN)-5000:KP <11 

2180 NEXT:GOTO2290 

> =KP(11)+5000:ELSE1890 

2190 IFHH(SN)=0ANDHO(4)=0THENWINDOW 9,17,29, 

1900 PRINT"{GREENJ":PRINTUSING"##,###,###";K 

18,1:PRINT"{GREENJÄICHT BESETZT.":PRINT 

P (SN) ; : PRINT“,-"-.GOTO2290 

"SIE MUESSEN ES KAUFEN" : SLEEP1: KP(SN)=K 

1910 INPUTA* 

P(SN)- 50000:WINDOW 18,5,29,5,1 

1920 IF A*< >NA*(1)ANDA*< >NA*(2)ANDA*< >NA*(3)A 

2200 IFHH(SN)=0ANDHO(4)=0THENPRINT USING"##, 

NDA*< >NA*(4)THENGOSUB5350:GOTO1860 

###,###";KP(SN);:PRINT":HO(4)=SN:HH( 

1930 F0RI=1T04 

SN)=4:WINDOW 18,6,29,6,1:PRINTHO*(HH(SN 

1940 IFA*=NA*(I)THENI1=I 

)):GOTD2290 

1950 NEXT 

2210 IFHO(4)J0THENKP(SN)=KP(SN)— 5000:WINDOW 

I960 IFKP(11)J0THEN18B0:ELSE GDTO1860 

18,5,29,5,1: PR I NT 11 {GREEN J " : PR I NTUS I NG " 

1970 GOTO4730 

##,###,###";KP(SN);:PRINT”:KP(HO(4)> 

1980 KP(SN)=KP(SN)+100000:WINDOW 18,5,29,5,1 

=KP(HO(4))+ 5000:GOTO2290:ELSE GOTO 229 

:PRINT"{GREEN J":PRINTUSING"##,###,###"; 

0 

KP(SN);:PRINT",—“:GOTO2290 

2220 KP(SN)=KP(SN)-10000:WINDOW 18,5,29,5,1: 

1990 KP(SN)=KP(SN)-40000:WINDOW 18,5,29,5,1: 

PRINT" {GREEN J":PRINTUSING"##,###,###";K 

PRINT"{GREEN J":PRINTUSING"##,###,###";K 

P(SN);:PRINT",-":GOTO2290 

P(SN);:PRINT",-":GOTO2290 

2230 KP(SN)=KP<SN)-30000:WINDOW 18,5,29,5,1: 
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2240 


2250 


2260 


2270 


22B0 


2290 

2300 

2310 


2320 


2330 

2340 

2350 

2360 


2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 


2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 


d 


PRINT"CGREEN}":PRINTUSINB"##,###,#*# 
P(SN);:PRINT":SOTO2290 
KP<SN>=KP<SN>-5000:WINDOW 18,5,29,5,1:P 
RINT"CGREEN3":PRINTUSINB"##,###,###";KP 
<SN>;:PRINT",-”:SOTO2290 

KP(SN)=KP < SN)-50000:WINDOW 18,5,29,5,1: 

PR I NT " CGREEN3 ••: PR I NTUS ING"##,###, ### " ; K 

P<SN);:PRINT":BOTQ2290 

KP(SN)=KP(SN)-20000:WINDOW 18,5,29,5,1: 

PRINT"{6REEN >":PRINTUSINB"##,###,###";K 

P(SN);:PRINT"6DTO2290 

KP(SN)=KP(SN)+10000:WINDOW 18,5,29,5,1: 

PRINT"CBREEN 3":PRINTUSINß"##,###,###";K 

P(SN);:PRINT",-":BOTO2290 

KP(SN > =KP(SN)+LO:LO=0:WINDOW 18,5,29,5, 

1:PRINT"CBREEN >";:PRINTUSINS"##,###,### 

";KP(SN);:PRINT",-“:BOTO2290 

SLEEP 1 

F0RI=1TD4 

IFKP(SN)<=0ANDBK(1X >SN ANDBK (2 X >SNANDB 
K(3)< 3SNANDBK(4)< >SNTHENBOSUB7430:WINDO 
W9,17,29,18,1:PRINTNAS(SN):PRINT"IST BA 
NKROTT !!!":BOSUB5390:SLEEP1:MOVSPRSN,0 
,0:KP(SN)=-10000000000 

IFKP(SN)<=0ANDBK(IX >SNANDBK(2)<>SNANDB 
K(3)<>SNANDBK(4 X>SNTHENBOSUB2950:HO(HH 
(SN))=0:HH(SN)=0 
SN=SN+1:IFSN=5THENSN=1 
IFKP(SN)>0THEN2370 

IFBK(1)=SNORBK(2)=SNORBK(3)=SNORBK(4)=S 
NTHEN2330 

BOSUB7430:WIND0W9,17,29,1B,1:PRINTNA»(S 
N):PRINT"IST BANKROTT *!":BOSUB5390:SLE 
EP1:MOVSPRSN,0,0:KP(SN)=-10000000000:BO 
SUB2950:HO(HH(SN))=0:HH(SN)=0:6OTO2330: 
WINDOW 9,17,29,18:PRINT"CWHITE,RVOFF,CL 
R3-5PJ.CE. DRUECKEN. " : BETKEY Ai: BOTO1240 
Ai= “ 

BOSUB5990: IFSN< =ANTHENGETKEYAi: IFAiO"J 
" THENPR INT" fJE IN !" 

IFAi="J"THENPRINT"iA !" 

IFSN >ANTHENJ N=INT(3*RND(1))+1:IFJN=2THE 
NPRINT"ä£IN ! “: Ai="N" 
IFSN>ANANDJN<>2THENPRINT"iA !":Ai="J" 
SLEEP 1 

IFA*<>”J"AND T<AUTHENBOTO1520 
IFA»< >"J"ANDT=AUTHENSOTO2290 
IFAi=" J "THENBOTO4730 
Ai=" " 

BOSUB6320:IFSN<=ANTHENGETKEYAi:IFAS< >"J 
"THENPRINT"HEIN !" 

IFA»="J"THENPRINT"£A !" 

IFSN>ANTHENJN= INT (3*RND (1) j) +1: IFJN=2THE 
NPRINT"HEIN !":Ai="N" 

IFSN >ANANDBR(SN > =0ANDTR(SN)=0ANDKU(SN) = 
0ANDA*<>"N"THENAi="N":PRINT“AEIN !":BOT 
02530 

IFSN >ANANDJN<>2THENPRINT"!":A*="J" 
SLEEP 1 

IFAi< >"J"AND T<AUTHENBOTO1520 
IFA»< >"J"ANDT=AUTHENBOTO2290 
IFAi="J"THENB0T05130 
AS=" " 

SOSUB6950:IFSN< =ANTHENGETKEYAi: IFAS< >"J 
"THENPRINT"AEIN ! “ 

IFAi="J *THENPRINT"SA !" 

IFSN>ANTHENJN=INT(3*RND(1))+1:IFJN=2THE 
NPRINT"ÜEIN !":AS="N" 

IFSN>ANANDJN<>2THENPRINT"jJfi ! ": AS= " J" 
SLEEP 1 

1FA»< >"J"AND T<AUTHENBOTO1520 
IFAS< >"J"ANDT=AUTHENBOTO2290 
IFAi="J"THENBOT04100 
Ai—" " 

BOSUB7300: IFSN< =ANTHENBETKEYAi: IFAiO"J 
"THENPRINT“BEIN !“ 

IFAi="J"THENPRINT"jLA !" 


2700 IFSN>ANTHENJN=INT(3*RND(1))+1:IFJN=2THE 
NPRINT"BEIN !":Ai=”N" 

2710 IFSN>ANANDJN<>2THENPRINT"äA !":Ai="J" 
2720 SLEEP 1 

2730 IFAi< >"J"AND T<AUTHENBOTO1520 
2740 IFAi<>"J"ANDT=AUTHENBOTO2290 
2750 IFA»="J"THENGOTO3010 

2760 BOSUB5780:SLEEP3:KP(SN)=KP(SN)-5000:L0= 
LO+5000:WINDOW 18,5,29,5,1:PRINT"CBREEN 
3":PRINTUSINS"##,###,###”;KP(SN);:PRINT 
WINDOW 3,11,36,15,1: BOTO1520 
2770 KP(SN)=KP(SN)-5000:LO=LO+5000:WINDOW 18 
,5,29,5,1:PRINT"CBREEN 3":PRINTUSINB"##, 
###,###";KP(SN);:PRINT",-":BOTO2290 
2780 PRINT"CHDME >";"CHOME J";:SCNCLR: 

2790 FOR1=1T04:MOVSPR I,0,0:NEXT 
2800 PRINT“CWHITE,DOWN,RIBHT,8SPACE>£, ü £ £ 
fi £ £ ä Ä I S " 

2810 PRINT" C8SPACE)-- 

2820 PRINT 

2830 PRINT"CLIG.BREEN,4SPACEJ1. ";NA»(BK(1)) 

:PRINT"CUP,30RIGHTT";LEFTi(BKi(1),2);". 
";MID»(BK»(1),3,2);".";RIEHT»(BKi(1),2) 
2840 PRINT"CLIB.RED,4SPACEJ2. ";NAi(BK(2)):P 
RINT"CUP,30RIBHT}";LEFTi(BK»(2),2);"."; 
MID»(BK»(2)»3,2);".";RIBHTi(BKi(2),2) 
2850 PRINT"CLIB. BLUE,4SPACEJ3. ";NAi(BK(3)>: 
PRINT"CUP,30RIGHT>";LEFT»(BK»(3),2) ; ". " 
;MIDi(BKi(3),3,2);".RIBHTi(BKi(3),2) 
2860 PRINT"CYELL0W,4SPACE>4. ";NAi(BK(4)):PR 
INT"CUP,30RIGHT >";LEFTi(BKi(4 >,2) ; ". "; M 
ID»(BKi(4),3,2);".";RIBHT*(BKi(4),2) 
2870 SLEEP 2:PRINT"CHOME,19D0WN,4RIGHTJB0CH 
EIN SPIEL (J/N) 5F"; 

2880 BETKEYAi:IFAi="J"THENPRINT"CLEFTJ CLEFT 
>JA !":SLEEP 1:CLR:RUN:ELSE PRINT"CLEFT 
J CLEFTJNEIN SLEEP 1 

2890 PRINT"CCLR,DOWN,RIGHT,9SPACE >£ C2SPACE 1 £ 
;2SPACE JE.C2SPACE J— C2SPACE 3 S.C2SPACE 3 0.C2S 
PACE>£C2SPACE>I" 

2900 F’R I NT " CBSPACE 3 =========«========»==== •• 

2910 PRINT" CDOWN, 10SPACE3£J1£ 1 —äASIC SYSTEM .. 

2920 PRINT "C3SPACE3SANK 0 : 58109 BASIC BYT 
ES £REE" 

2930 PRINT "C3SPACE3BANK 1 : 64256 VARIABLE 
BYTES £REE" . 

2940 CLR:NEW 

2950 IFBK(1)=0THENBK(1> =SN:BKi(1)=TIi: RETURN 
2960 IFBK(2)=0THENBK(2)=SN:BK»(2)=TIi:RETURN 
2970 IFBK(3 > =0THENBK(3)=SN:BKi(3)=TIi: G0T029 
80 

2980 F0RI=1T04:IFBK(1X>1ANDBK(2)<>1ANDBK(3) 

< >ITHENBK(4)=I:BKi(4)=TIi 
2990 NEXT:GOTD2780 
3000 END 

3010 IFPO(SN)=59THEN3040 

3020 IFPO(SN)>59THENF0RI=P0(SN)TO60:MOVSPR S 
N,PX(I),PY(I):PO(SN)=1:BOSUB5450:NEXT:M 
OVSPR SN,PX(1),PY(1):PO(SN)=1 
3030 FORI=PO(SN> T059:MOVSPR SN,PX(I),PY(I): 

BQSUB5450:NEXTI:PO(SN)=59 
3040 SLEEP 1:PRINT"CHOME3";"CHOME}":SCNCLR:F 
AST:SOSUB8030:SLOW 
3050 F0RI=1T04:MOVSPR 1,0,0:NEXT 
3060 IFSN< =ANTHENWINDOW 1,23,38,23,1:PRINT"C 
WHITE3 .5.PACJ. DRUECKEN FUER AUTOMAT ! " : BE 
TKEYAi:SCNCLR 
3070 IFSN >ANTHENSLEEP 1 

3080 KP(SN)=KP(SN >-20000:B=TI:T1 = INT(B+RND(1 
)>:T1=T1/(B/6):T1=INT(T1)+1:T1=T1+10:WI 
NDOW 25,6,27,8,1 
3090 FOR1=1TOT1 

3100 T4=INT(6*RND(1))+1:ONT4GOSUB4040,4050,4 
060,4070,4080,4090:6OSUB5450:F0RZ=1T015 
:NEXTZ:NEXTI: 

Listing. »Mankomania« (Fortsetzung) 
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3110 B=TX:T2= XNT(B*RND(1)>:T2=T2/(B/ 6 ):T2=IN 

3570 SLEEP1 

T(T2)+1:T2=T2+10:WINDOW 30,6,32,8,1 

3580 IFSN<=ANTHENPRINT" (CLR jS.PJ+C E. DRÜECKEN ! 

3120 F0RI=1T0T2 

":GETKEYA*:SCNCLR:GOTO3600 

3130 T5=INT(6*RND(1))+1:ONT5GOSUB4040,4050,4 

3590 SCNCLR:SLEEP 1 

060,4070,4080,4090:GOSUB5450:F0RZ=1T015 

3600 REM *** ROULETTE 

: NEXTZ:NEXTI: 

3610 B=TI:T1=INT(B*RND(1)):T1=T1/(B/10):T1=I 

3140 B=TI:T3=INT(B*RND(1>):T3=T3/(B/6>:T3=IN 

NT(Tl)+l:Tl=Tl+30 

T(T3)+1:T3=T3+10:WINDOW 35,6,37,8,1 

3620 FOR1=1TOT1:SCNCLR 

3150 FORI=lTOT3 

3630 T2=INT(37*RND(1))+l:T2=T2-l:IFT2>18THEN 

3160 T6=INT(6*RND(1))+1:ONT6GOSUB4040,4050,4 

3660 

060,4070,4080,4090:GOSUB5450:F0RZ=1T015 

3640 WINDOW 1,15,38,15,1:SCNCLR:0NT2+1G0SUB3 

:NEXTZ:NEXTI: 

830,3840,3850,3860,3870,3880,3890,3900, 

3170 IFT4=T5ANDT5=T6THEN3210 

3910,3920,3930,3940,3950,3960,3970,3980 

3180 IFT4=T5ORT5=T6ORT4=T6THEN3200 

,3990,4000,4010 

3190 WINDOW 1,23,38,23, 1: PRINT" (WHITE3JLEIN £ 

3650 PRINT"tRVSON,WHITE,2SPACE,RVOFF>":GOSUB 

EWINN !":SLEEP 3:GOTO3240 

5450:GOTO3680 

3200 WINDOW 1,23,38,23,1:PRINT"(WHITE32 £LEI 

3660 WINDOW 1,17,36,17,1:SCNCLR:0NT2-18G0SUB 

CHE ! GEWINN : 50.000,SLEEP 3:KP(SN) 

3830,3840,3850,3860,3B70,3880,3890,3900 

=KP <SN)+50000:GOTO3240 

,3910,3920,3930,3940,3950,3960,3970,398 

3210 IFT4=6THENGOTO3230 

0,3990,4000 

3220 WINDOW 1,23,38,23,1:PRINT"(WHITE33 £LEI 

3670 PRINT"tRVSON,WHITE,2SPACE,RVOFF>":GOSUB 

CHE ! GEWINN : 150.000,-":SLEEP 3:KP(SN 

5450:GOTO36B0 

)=KP(SN)+150000:GOTO3240 

3680 FORZ=lTOI:NEXTZ:NEXTI 

3230 WINDOW 1,23,38,23,1: -.PRINT" (WHITE33 * £ 

3690 WINDOW 1,23,38,23,1 

OLLAR ! GEWINN : 300.000,-": SLEEP 3-.KP( 

3700 IFZD*< >"Z"THEN3730 

SN)=KP(SN)+300000: GOTO3240 

3710 IFNR=RO(T2)THEN PRINTNA*(SN);" GEWINNT 

3240 SCNCLR: IFSN< = ANTHENPRINT".5-P-fLCE. DRÜECKEN 

150.000,- !":KP(SN)=KP(SN)+150000:ELSE 

FUER MAGISCHES JLDULETTE" : GETKEYA*: SCNC 

PRINT"£ANEBEN." 

LR:GOTO3260 

3720 GOTO3820 

3250 SLEEP1 

3730 IFZD*< >"D"THEN3790 

3260 IFSN>ANTHENG0T03410 

3740 IFNR=1ANDRO(T2)<=12ANDT2>0THEN3780 

3270 PRINT"(CLR,RVSDN3ZtRVOFF}AHL,tRVSON3£(R 

3750 IFNR=2ANDR0(T2)> 12ANDR0(T2)<=24THEN378 

VOFF 3UTZEND ODER tRVSON3£tRVOFF>ARBE ? 

0 

T";:GETKEYA*:IFA*<>"Z"ANDA*<>"D”ANDA*<> 

3760 IFNR=3ANDRO(T2>> 24THEN37B0 

"F"THENGOSUB5350:G0T03270:ELSE ZD*=A* 

3770 PRINT"DANEBEN.":GOTO3820 

3280 IFA*=“Z"THENPRINT"ZAHL":KP(SN)=KP(SN)-5 

3780 PRINTNA*(SN);" GEWINNT 100.000,- !":KP( 

000 

SN)=KP(SN)+100000:GOTO3820 

3290 I FA*= " D " THENPR INT" NUTZEND " : KP (SN) =KF' (SN 

3790 IFNR=1ANDT2/2< >INT(T2/2)ANDT2>0THENPRIN 

)-20000 

TNA*(SN);" GEWINNT 80.000,- !":KP(SN)=K 

3300 IFA*="F"THENPRINT”FARBE":KP(SN)=KP(SN)- 

P(SN)+80000:GOTO3820 

50000 

3800 IFNR=2ANDT2/2= INT(T2/2)ANDT2>0THENPRIN 

3310 SLEEP 1 

TNA*(SN);" GEWINNT 80.000,- !":KP(SN)=K 

3320 IFA*< >"Z"THEN3350 

P(SN)+80000:GOTO3820 

3330 INPUT"{CLRJflUF WELCHE ZAHL ";NR:IFNR<0O 

3810 PRINT"£ANEBEN." 

RNR>36THENGOSUB5350:GOTO3330 

3820 SLEEP 3:GOTO4020 

3340 GOTO3570 

3830 RETURN 

3350 IFA*< >"D"THEN 3380 

3840 PRINT"t2RIGHT3";:RETURN 

3360 INPUT"CCLRIflUF WELCHES NUTZEND ";NR:IFN 

3850 PRINT"t4RIGHT>";:RETURN 

R<1ORNR >3THENGQSUB5350:GOTO3360 

3860 PRINT"t 6 RIGHTJ”;:RETURN 

3370 GOTO3570 

3870 PR I NT "( 8 RIGHT RETURN 

3380 INF'UT" CCLRJßUF WELCHE fARBE (R/S) "; NR* 

3880 PRINT"C10RIGHT3" 5 :RETURN 

: IFNR*< >"ROT"ANDNR*< >"R“ANDNR*< >"S"ANDN 

3890 PRINT"tl2RIGHT>";:RETURN 

R*< >"SCHWARZ"THENGOSUB5350:GOTO33B0 

3900 PRINT"tl4RIGHT>";:RETURN 

3390 IFNR*="R"ORNR*="ROT"THENNR=1:ELSE NR=2 

3910 PRINT"t16RIGHT}";:RETURN 

3400 GOTO3570 

3920 PRINT"tlBRIGHTJ";: RETURN 

3410 SCNCLR:PRINTNA*(SN) ; " SETZT AUF "; 

3930 PRINT"t20RIGHT>";:RETURN 

3420 ZD=INT <3*RND <1))+1: 

3940 PRINT"I22RIGHT3";:RETURN 

3430 IFZD=1THENPRINT"ZAHL":ZD*="Z":KP(SN)=KP 

3950 PRINT"t24RIGHT3";:RETURN 

(SN)-5000 

3960 PRINT"t26RIGHT3“;:RETURN 

3440 IFZD=2THENPRINT"SUTZEND" : ZD*="D" KP (SN) 

3970 PRINT"t28RIGHT3";:RETURN 

=KP(SN)-20000 

3980 PRINT"t30RIGHT3" 5 :RETURN 

3450 IFZD=3THENPRINT"£ARBE":ZD*="F":KP(SN)=K 

3990 PRINT"I32RIGHT3";:RETURN 

P(SN)-50000 

4000 PRINT"t34RIGHT3";:RETURN 

3460 SLEEP 2 

4010 PRINT"I36RIGHT3";:RETURN 

3470 IFZD*< >”F"THEN3500 

4020 PRINT" (HOME3";"CHOME3":SCNCLR:FAST:GOSU 

3480 NR=INT(2*RND(1>)+1:PRINT"tCLRIgR SETZT 

B7510:FORI=lT04:MOVSPRI,PX(PO(I)),PY(PO 

AUF ";: IFNR=1THENPRINT”&DT.":ELSE PRINT 

(I> >:NEXT:GOSUB7760:GOSUB7430:SLOW 

"SCHWARZ" 

4030 GOTO2290 

3490 GOTO3570 

4040 PRINT"tRVSON,WHITE}******#** tRVOFF3":RE 

350© IFZD*< >"D"THEN3560 

TURN 

3510 NR=INT(3*RND(1) )+l:F'RINT" CCLRJgR SETZT 

4050 PRINT"tRVSON,LIG.RED3tRVOFF3": 

AUFS ";: 

RETURN 

3520 IFNR=1THENPRINT"1. SJTZEND" 

4060 PRINT"tRVSON,LIG.GREEN3+++++++++(RVOFF3 

3530 I F'NR=2THENPR I NT " 2. £UTZEND" 

":RETURN 

3540 IFNR=3THENPRINT"3. 5UTZEND" 

4070 PRINT" tRVSON,LIG. BLUE3-(RVOFF}" 

3550 GOTQ3570 

:RETURN 

3560 NR=INT(37*RND(1)> +1:NR=NR-1:PRINT"tCLR> 

4080 PRINT"tRVSON,YELLOW}TtttTttft(RVOFF3":R 

£R SETZT AUF DIE";NR:".": 

ETURN 
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4090 PRINT" (RVSON,ORANGE}***$**$*.* (RVOFF }": R 
ETURN 

4100 IFPD(SN)=48THEN4130 

4110 IFPO(SN)>48THENF0RI=P0(SN)TQ60:MOVSPR S 

N, PX(I),PY(I):PO(SN)=I:GOSUB5450:G0SUB5 
340:NEXT:MOVSPR SN,PX(1),PY(1):PO(SN)=1 
:BOSUB5450: GOSUB5340 

4120 FORI=PO(SN)TQ48:MOVSPR SN,PX(I),PY(I):G 
OSUB5450:GOSUB5340:NEXTI:PO(SN)-48 
4130 F0RI—1T04:MOVSPRI,0,0:NEXT 
4140 FAST:PRINT"CHOME} " ; "CHOME} "; "(CLRI";:GO 
SUB8780:SLOW 
4150 WINDOW 1,23,38,23,1 

4160 IFSN<=ANTHENPRINT"SITTE SPACE DRUECKEN 
!":GETKEYA*:SCNCLR 
4170 IFSN >ANTHENSLEEP 1 
4180 : 

4190 B=TI:Tl—INT(B*RND(1)>:T1=T1/(B/ 6 ):T1=IN 
T(TI)+1 

4200 WINDOW 14,7,18,11,1:FORI=1TOT1+10 
4210 T3=INT(6*RND(1))+1:ONT3GOSUB4350,4410,4 
470,4530,4590,4650:GOSUB5450:FORZ=1TO15 
:NEXTZ:NEXTI 

4220 B=TI:T2=INT(B*RND(1)>:T2=T2/(B/ 6 ):T2=IN 
T(T2)+1 

4230 WINDOW 21,7,25,11,1:FOR1=1TOT2+10 
4240 T4=INT(6*RND(1))+1:ONT4GOSUB4350,4410,4 
470,4530,4590,4650:GOSUB5450:F0RZ-1TD15 
:NEXTZ:NEXTI 

4250 WINDOW 1,23,38,23,1: 

4260 IFT3=1ANDT4<>1THENKP(SN)=KP(SN)+100000: 
PRINT"{WHITE>";NA*(SN);" BEKOMMT 100.00 

O, - !":SLEEP 3:GOTO4300 

4270 IFT4=1ANDT3<>1THENKP(SN)=KP(SN)+100000: 
PRINT"IWHITE}";NA*(SN);" BEKOMMT 100.00 
0,- )••: SLEEP 3: GOTO4300 
4280 IFT3=1ANDT4=1THEN KP(SN)=KP(SN)+300000: 
PRINT"(WHITE}”; NA*(SN);" BEKOMMT 300.00 
0,- !":SLEEP 3:GOTO4300 
4290 IFT3< >1ANDT4< >1THENKP(SN)=KP(SN) — ((T3+T 
4)*2500):PRINT"(WHITE}";NA*(SN);" VERLI 
ERT :PRINTUSING"##,###";(T3+T4)*2500; 

:PRINT",- ’":SLEEP 4:GOTO4300 
4300 IFT3=1ORT4=1THEN4710 

4310 SCNCLR:PRINT"(WHITE}flOCH EINMAL (J/N) ? 
+"; 

4320 IFSN>ANTHENGOTO4340 

4330 GETKEYA*:IFA*="J"THENPRINT"(LEFT} fl FF T 
>JA !":GOTO 4140 :ELSE PRINT"£LEFT} (LE 
FTTNEIN !":G0T04710 

4340 JN=INT(3*RND(1)> +1:IFJN=1THENPRINT"(LEF 
T> (LEFT}NEIN ! M :SLEEP 2:G0T04710:ELSE 
PRINT"tLEFTJ {LEFTJJA !":SLEEP 2:G0T041 
40 

4350 PRINT"£GREY3,RVSON,5SPACE,RVOFF}" 

4360 PRINT"(RVSON,5SPACE,RVOFF}" 

4370 PRINT"(RVSON,2SPACE>*(2SPACE,RVOFF>" 
4380 PRINT" (RVSON,5SPACE,RVOFF } » 

4390 PRINT"(RVSON,5SPACE,RVOFF}" 

4400 RETURN 

4410 PRINT"(GREY3,RVSON,5SPACE,RVOFF>" 

4420 PRINT"(RVSON> *(3SPACE,RVOFF}" 

4430 PRINT"(RVSON,5SPACE,RVOFF>" 

4440 PRINT”(RVSON,3SPACE}* (RVOFF}" 

4450 PRINT"(RVSON,5SPACE,RVOFF}" 

4460 RETURN 

4470 PRINT"(RVSON,GREY3,5SPACE,RVOFF}" 

4480 PRINT"(RVSON} *(3SPACE,RVOFF}" 

4490 PRINT"(RVSON,2SPACE}*(2SPACE,RVOFF}" 
4500 PRINT"(RVSON,3SPACE}* (RVOFF}“ 

4510 PRINT"(RVSON,5SPACE,RVOFF}" 

4520 RETURN 

4530 PRINT"(RVSON,GREY3,5SPACE,RVOFF}” 

4540 PRINT"(RVSON} * * (RVOFF}" 

4550 PRINT"(RVSON,5SPACE,RVOFF}" 

4560 PRINT"(RVSON} * * {RVOFF}" 

4570 PRINT"(RVSON,5SPACE,RVOFF}" 

4580 RETURN 


4590 PRINT"(RVSON,GREY3,5SPACE,RVOFF}" 

4600 PRINT"{RVSON} * * (RVOFF}" 

4610 PRINT"(RVSON,2SPACE}*(2SPACE,RVOFF}» 
4620 PRINT"(RVSON! * * (RVOFF}" 

4630 PRINT"(RVSON,5SPACE,RVOFF}" 

4640 RETURN 

4650 PRINT"(RVSON,GREY3,5SPACE,RVOFF}" 

4660 PRINT" (RVSON} * * (RVOFF}" 

4670 PRINT"(RVSON} * * (RVOFF}" 

4680 PRINT" {RVSON} * * {RVOFF}" 

4690 PRINT"(RVSON,5SPACE,RVOFF}" 

4700 RETURN 
4710 : 

4720 FAST:GOSUB7510:FORI=1T04:MOVSPR I,PX(PO 
(I)) ,PY(PO(I)> :NEXT:GOSUB7760:GOSUB7430 
:SLOW:GOTO2290 
4730 IFPO(SN)—18THEN4760 

4740 IFPO(SN)>18THENFORI=PO<SN)TO60:MOVSPR S 
N,PX <I),PY(I):PO(SN)=I:BOSUB5450:G0SUB5 
340:NEXT:MOVSPR SN,PX<1>,PY<1):PO(SN)=1 
:GOSUB5450:GOSUB5340 

4750 FORI=PQ(SN)T018:MOVSPR SN,PX(I),PY(I):G 
OSUB5450:GOSUB5340:NEXTI:PO(SN)=18 
4760 PRINT"(HOME}";"(HOME}":FAST:GOSUB8520: F 
0RI = 1T04:MOVSPR I,0,0:NEXT:SLOW: WINDOW 
1,19,38,23,1:PRINT"SEWINNT flUTO 1 : DOP 
PELTER EINSATZ" 

4770 PR INT ".GEWINNT flUTO 2 : DREIFACHER flINSA 
TZ " : PRINT"fiEWINNT flUTO 3 : VIERFACHER fl 
INSATZ":PRINT"SEWINNT flUTO 4 : FUENFFAC 
HER flINSATZ" 

4780 PRINT" (LIG.GREEN}SITTE 5Pn.CE. DRUECKEN . 

. . ” : GETKEYA*:F0RI = 1T04:AP(I)=30:ES(I)=0 
:AT(I)=0:NEXTI 
4790 SCNCLR:FOR1=1TOAN 
4800 IFKP(I)<=0THEN6OTO4870 
4810 PRINTN A*(I);", WELCHES flUTO ? T";: 

4820 GETKEYA* 

483C - ?A*<"1"ORA* >"4"THENGOSUB5350:GOTO4820 
4840 PRINT"£LEFT} (LEFT}";A*:AT(I)=VAL(A*) 
4850 INPUT"flINSATZ (BIS 50.000,-)“;ES(I) 

4860 IFES(I)(5000ORES(I)>50000THENGOSUB5350: 

PRINT"(2UP}":GQTO4850 
4870 SCNCLR:NEXTI 
4880 IFAN=4THEN4930 
4890 F0RI=AN+1T04 
4900 IFKP(I)<=0THEN 4920 

4910 SCNCLR:PRINTNA*(I) ; " SETZT";:ES(I)=INT( 
50000*RND(1))+1:PRINTES(I);",— AUF flUTO 
:AT(I>=INT(4*RND(1))+1:PRINTAT(I) : SLE 
EP2 

4920 NEXTI 

4930 MOVSPR 5,30,88:MOVSPR 6,30,112:MOVSPR 7 
,30,136:MOVSPR 8,30,160 
4940 SCNCLR:PRINT"(WHITE! 5PHCE DRUECKEN !" : G 
ETKEY A*:FOR1 = 1T04:KP(I)=KP(I)-ES(I):NEX 
T 

4950 SCNCLR 

4960 A=INT(5*RND(1)> +1:IFA>2THENAP(1> =AP(1) + 
4:ELSE AP(1)=AP(1)+2 

4970 MOVSPR 5,AP(1>,88:IFAP(l)>305THENSI=1:G 
OTO5050 

4980 A=INT(5*RND(1))+1:IFA>2THENAP(2)=AP(2)+ 
4:ELSE AP(2)=AP(2)+2 

4990 MOVSPR 6,AP(2),112:IFAP(2)>305THENSI=2: 
GOTO5050 

5000 A=INT(9*RND(1)> +1:IFA>4THENAP(3)=AP(3) + 
4:ELSE AP(3)=AP(3)+2 

5010 MOVSPR 7,AP(3),136:IFAP(3)>305THENSI=3: 
GOTO5050 

5020 A=INT(9*RND(1>)+1:IFA >4THENAP(4)=AP(4) + 
4:ELSE AP(4)=AP(4)+2 

5030 MOVSPR 8,AP(4),160:IFAP(4)>305THENSI=4: 

BOTO5050 
5040 GOTO4960 
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5050 PR X NT"(CLR,WHITE JfiUTO" ; SI; "HAT GEWONNEN 

5460 TEMPO50:PLAY "04 T3 IC":RETURN 

! M 

5470 RETURN 

5060 SLEEP 3:SCNCLR 

5480 PRINT"CWHITEISEH INS fiASINO ! (LIG.BLUE3 

5070 F0RI=1T04 

" 

5080 IFAT(I)=SI THENPRINTNAf(I);" HAT ";:PRI 

5490 RETURN 

NTUSING "###,###";ES(I)*(1+SI>PRINT", 

5500 PRINT"(WHITE3 KAUFE EINE AKTIE DER IROCK 

- GEWONNEN !":KP(I>=KP(I>+(ES(I)*(1+SI) 

ENOEL-aS "5 

):SLEEP3 

5510 PRINT"FUER 100.000,- ‘":RETURN 

5090 NEXT 

5520 PRINT"(WHITE3AIB ALLE AKTIEN AN DIE AAN 

5100 PRINT" (HOME T 4D0WN3 SPACE. DRUECKEN !":GET 

K" 

KEYA* 

5530 PRINT-ZURUECK ! ” 

5110 F0RI=5T0B:MOVSPR 1,0,0:NEXT 

5540 RETURN 

5120 FAST:GOSUB7510:FORI=1T04:MOVSPR I,PX(PO 

5550 PRINT"(WHITE3 KAUFE EINE AKTIE DER KCRZS 

(I> >,PY(PO(I>):NEXT:GOSUB7760:GOSUB7430 

CHLUSS-" 

:SLOW:GOTO2290 

5560 PRINT"AS FUER 100.000,- !" 

5130 IFPO(SN)=29THEN5160 

5570 RETURN 

5140 IFPO(SN)>29THENF0RI=P0(SN)TO60:MOVSPR S 

5580 PRINT"(WHITE3SEH ZUR AKTIENBOERSE !" 

N,PX(I),PY(I>:PO(SN)=I:GOSUB5450:GOSUB5 

5590 RETURN 

340:NEXT:MOVSPR SN,PX(1>,PY(1):PO(SN)=l 

5600 PRINT"IWHITE 3 KAUFE 150 STRANDKOERBE AM 

:GOSUB5450:GOSOB5340 

ADERD-" 

5150 FORI=PO(SN)T029:MOVSPR SN,PX(I),PY(I):G 

5610 PRINT"LICHEN AISMEER FUER 150.000,- !" 

OSUB5450:GOBUB5340:NEXTI:PO(SN)=29 

5620 RETURN 

5160 FORI=1T04:MOVSPR I,0,0:NEXT:FAST:PRINT" 

5630 PRINT" {WHITE3ADTEL ‘SANTA fJJ '" 

(HOME>";"tHOME 3 " ; "(CLR 3";:GOSUBB290:SLO 

5640 PRINT 

W 

5650 F'RINT"KAUFPREIS<3SPACE3: 200. 000,-" 

5170 WINDOW 1,23,38,23,1: 

5660 PRINT"2,1 MMERPREIS :(2SPACE320.000,-" 

5180 IFSN< =ANTHENPRINT" (WHITE3.5.P-RC.E. DRUECKEN 

5670 IFHO(1)>0THENPRINT"(YELL0W3AESITZER : " 

!":GETKEYAS:SCNCLR:GOTO5200 

;NA*(H0(1));"(WHITE3" 

5190 IFSN >ANTHENSLEEP1 

5680 RETURN 

5200 WINDOW 11,6,27,12 

5690 PRINT"(WHITE3AU WUERFELST EINMAL MIT EI 

5210 T1=0:B=TI:T1=INT(B*RND(1)):T1=T1/(B/ 6 ): 

NEM" 

T1=1NT(TI)+1:T1=T1+15 

5700 PRINT"HUERFEL :" 

5220 SCNCLR:FOR1=1 TO TI 

5710 PRINT"EUER EINE ‘ 6 ‘ GIBT ES 10.000,-." 

5230 T2=INT(7*RND(1>)+1:PRINT"(WHITE,RV50N,5 

5720 RETURN 

SPACE,RVOFF,CTRL+G3";:F0RZ=1TQ25:NEXTZ: 

5730 PRINT"CWHITE3KAUFE EINE AKTIE DER S?UCH 

NEXTI:PRINT"(CLR 3";:ONT2GOSUB9010,9080, 

STAHL-” 

9150,9220,9290,9360,9430:PRINT"(CTRL+G, 

5740 PRINT"fl£ FUER 100.000,- !“ 

WHITE3" 

5750 RETURN 

5240 WINDOW 1,23,38,23,1 

576« >-RINT" (WHITEIfiEH IN DIE ' 5PESE 1‘ WUERF 

5250 IFT2=1THENKP(SN)=KP(SN)+15000*KU(SN):PR 

ELN ! " 

INTNA#(SN);" BEKOMMT PRINTUSING"###, 

5770 RETURN 

###";15000*KU(SN)PRINT",- !” 

5780 PRINT"(WHITE3KAUFE IM VORBEIGEHEN ADTTE 

5260 IFT2=3THENKP(SN)=KP(SN)+15O00*BR(SN):PR 

RIELOSE" 

INTNA*(SN);" BEKOMMT PRINTUSING"###, 

5790 PRINT"FUER 5.000,- !" 

###";15000*BR(SN);:PRINT",- !" 

5800 RETURN 

5270 IFT2=5THENKP(SN)=KP(SN)+15000*TR(SN):PR 

5810 PRINT"(WHITE3VERWDEHNE EINEN AITSPIELER 

INTNA*(SN);" BEKOMMT ";:PRINTUSING"###, 

MIT" 

###";15000*TR(SN);:PRINT”,— !" 

5820 PRINT"5. 000, — ! '* 

5280 IFT2=2THENKP(SN)=KP(SN)-15000*KU(SN):PR 

5830 RETURN 

INTNA*(SN);" VERLIERT ";:PRINTUSING"### 

5840 PRINT"(WHITE3KAUFE EINE AKTIE DER KURZS 

,###";1500O*KU(SN);:PRINT",- !" 

CHLUSS-" 

5290 IFT2=4THENKP(SN)=KP(SN)-1500O*BR(SN):PR 

5850 PRINT"AS FUER 100.000,-" 

INTNA*(SN) 5 " VERLIERT ";:PRINTUSING"### 

5860 RETURN 

,###";15000*BR(SN);:PRINT",- !" 

5870 PRINT”(WHITE3AEH ZUM AUTORENNEN !" 

5300 IFT2=6THENKP(SN)=KP(SN)-15O00*TR(SN):PR 

5880 RETURN 

INTNA*(SN >;" VERLIERT ";:PRINTUSING"### 

5890 PRINT"(WHITE3£1N SCHEICH SCHENKT AIR EI 

,###";15O00*TR(SN);:PRINT",- !" 

NE fiEL-" 

5310 IFT2=7THENKP(SN > =KP(SN)+15000*(KU(SN)+T 

5900 PRINT"QUELLE. AU VERKAUFST SIE FUER " 

R(SN)+TR(SN)):PRINTNA*(SN);" BEKOMMT “; 

5910 PRINT"100.000,- WEITER." 

:PRINTUSING"###,###";15000*(KU(SN)+TR(S 

5920 RETURN 

N)+BR(SN >);:PRINT",— !" 

5930 PRINT"(WHITE3AINANZIERE MIT 40.000,- DI 

5320 SLEEP 5: SCNCLR: PRINT" (WHITE) .5-PJIC.A DRUEC 

E AR- " 

KEN ! " 

5940 PRINT"FORSCHUNG DES MAGNETISCHEN HEST-" 

5330 FAST:GOSUB7510:FORI=lT04:MOVSPR I,PX(PO 

5950 PRINT"POLS DER £RDE ! " 

(I)),PY(PO(I)):NEXT:G0SUB7760:SLOW:GOSU 

5960 RETURN 

B7430:GOTO2290 

5970 PRINT"CWHITE3SEH INS SEIEL-fiASINO !" 

5340 FORZ=1TO10:NEXTZ:RETURN 

5980 RETURN 

5350 REM : 

5990 PRINT"(WHITE,CLR3HDLLEN SIE IHR SLUECK 

5360 REM SOUND FALSCHE EINGABE 

BEIM AUTO-" 

5370 REM : 

6000 PRINT"RENNEN VERSUCHEN ??? " 

5380 V0L15:SOUND 1,512,15:RETURN 

6010 RETURN 

5390 IFAS(1> =0THENAS(1)=SN:GOTO5430 

6020 PRINT"(WHITE32AHLE 25.000,- KAUTION FUE 

5400 IFAS(2)=0THENAS(2)=SN:GOTO5430 

R DEN" 

5410 IFAS(3 > =0THENAS(3)=SN:GOTO5430 

6030 PRINT"ADERDER DES TOTEN HEERES !" 

5420 AS(4)=SN 

6040 RETURN 

5430 TEMPO 15:PLAY"T1 03 QC QE QG 04 -QC" 

6050 PRINT"(WHITE3AAHLE 20.000,- FUER EINE £ 

5440 RETURN 

ILMEX-" 

5450 REM SOUND GEHEN 

6060 PRINT"PEDITION UEBER DEN APCHZEITSTAMZ" 
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6070 PRINT"DER flLPHDERNER !" 

6080 RETURN 

6090 PRINT"(WHITE3SEH IN DIE 'SOESE 1' WUERF 
ELN ! " 

6100 RETURN 

6110 PRINT"(WHITE3HOTEL "SEHBLICK'" 

6120 PRINT 

6130 PRINT"SAUFPREIS(3SPACE3: 150.000,-" 

6140 PRINT"ZIMMERPREIS :(2SPACE315.000,-" 
6150 IFH0(2)>0THENPRINT"CYELL0W3SESITZER : " 
;NA*(HD(2));"(WHITE3" 

6160 RETURN 

6170 PRINT" {WHITE3SAUFE EINE AKTIE DER JSURZS 
CHLUSS-" 

6180 PRINT"A£ FUER 100.000,- !" 

6190 RETURN 

6200 PRINT" (WHITE3SEH ZUR AKTIEN-3QFRSE !" 
6210 RETURN 

6220 PRINT"(WHITE3SU ERHAELTST EINE SRATIS-A 
KTIE" 

6230 PRINT"DER IROCKENOEL-AS. " 

6240 RETURN 

6250 PRINT"(WHITE3STIFTE 10.000,- FUER DIE * 
SONNE-" 

6260 PRINT"UM-£RDE-£ESELLSCHAFT * !" 

6270 RETURN 

6280 PRINT"(WHITE3.SEH INS SPIEL-£ASINO !" 
6290 RETURN 

6300 PRINT"(WHITE3SEH ZUM AUTORENNEN !" 

6310 RETURN 

6320 PRINT"(WHITE,CLR>HILLST SU SEIN SLUECK 
IN DER" 

6330 PR I NT '* AKT I EN-SPERSE VERSUCHEN ??? •• 

6340 RETURN 

6350 PRINT"(WHITE3STIFTE 170.000,- FUER DEN 
•VEREIN" 

6360 PRINT"ANONYMER HELTSTARS E.H. ' !" 

6370 RETURN 

6380 PRINT"(WHITE3SAUFE EINE AKTIE DER IROCK 
ENDEL-" 

6390 PRINT"AS FUER 100.000,- >" 

6400 RETURN 

6410 PRINT“<WHITE3,2U WIRST ZUM SENERALKONSUL 
VON" 

6420 PRINT"ATLANTIS ERNANNT. ZAHLE 100.000,- 

•I 


6430 RETURN 

6440 PRINT" (WHITE3£EH IN DIE 'SOESE 1* WUERF 
ELN ! " 

6450 RETURN 

6460 PRINT“<WHITE3AOTEL 'BUHE SANFT'" 

6470 PRINT 

6480 PRINT"SAUFPREIS13SPACE>: 150.000,-" 

6490 PRINT"ZIMMERPREIS :(2SPACE315.000,-" 
6500 IFH0<3)>0THENPRINT"<YELLOW3AESTIZER s " 
;NA*(HO(3))5"IWHITEJ" 

6510 RETURN 

6520 PRINT"<WHITE>ZAHLE 50.000,- IN DIE JJDTT 
ERIE” 

6530 PRINT"EIN !" 

6540 RETURN 

6550 PRINT"<WHITE3SPENDE 180.000,- FUER DEN 
SS" 

6560 PRINT"AUTTERBERB !" 

6570 RETURN 

6580 PRINT"(WHITE3SU BEKOMMST DAS SELD AUS D 
ER” 

6590 PRINT"AOTTERIE 
6600 RETURN 

6610 PRINT"<WHITE3SAUFE EINE AKTIE DER ®*UCH 
STAHL-" 

6620 PRINT"AS FUER 100.000,- !" 

6630 RETURN 

6640 PRINT"(WHITE3SEINE LIEBE SJ1A GIBT aiR 5 

0 . 000 ,-" 

6650 PRINT"IASCHENGELD ." 

6660 RETURN 

6670 PRINT"<WHITE3£EH ZUR AKTIENBOERSE !" 


6680 PRINT 
6690 RETURN 

6700 PRINT"(WHITE3ZAHLE 50.000,- IN DIE SOTT 
ERIE" 

6710 PRINT"EIN !" 

6720 RETURN 

6730 PRINT"(WHITE3SAUFE EINE AKTIE DER IROCK 
ENOEL-" 

6740 PRINT"AS FUER 100.000,- !" 

6750 RETURN 

6760 PRINT"(WHITE35EIN SUCH 'ALLE BINAEREN Z 
AHLEN" 

6770 PRINT-AUF EINEN SLICK' BRINGT SIR" 

6780 PRINT"10.000,- AN IANTIEMEN." 

6790 RETURN 

6800 PRINT"(WHITE3SEH INS SPIEL-fiASINO !" 
6810 RETURN 

6820 PRINT"(WHITE3AEH ZUM AUTORENNEN !" 

6830 RETURN 

6840 PRINT"(WHITE3SEINE SREUNDE LEGEN ZUSAMM 
EN," 

6850 PRINT"DAMIT 3J DICH ORDENTLICH EINKLEI- 

6860 PRINT"DEN KANNST. ZEDER SCHENKT SIR" 
6870 PRINT"5.000,-." 

6880 RETURN 

6890 PRINT"(WHITE3A0TEL 'HILLA NICHT'" 

6900 PRINT 

6910 PRINT"SAUFPREIS(3SPACE3: 50.000,-" 

6920 PRINT"ZIMMERPREIS :(2SPACE35.@00,-" 

6930 IFHO(4)>0THENPRINT”(YELLOWJ2ESTIZER : " 

;NA*(HO(4)>;"(WHITE3" 

6940 RETURN 

6950 PRINT"(WHITE,CLR3HOLLEN SIE IHR SLUECK 
IN DER" 

6960 PRINT"'SDESEN 1' VERSUCHEN ???•• 

6970 RETURN 


6990 PRINT"BEGATTA 'BUND UM DIE SCHWEIZ'." 
7000 PRINT"ZAHLE 10.000,- !" 

7010 RETURN 

7020 PRINT"(WHITE3AASS aiR EINEN .LOGENPLATZ 
FUER” 

7030 PRINT"DAS BFERDERENNEN AUF DEM HUER-" 
7040 PRINT"BURGRING RESERVIEREN !" 

7050 PRINT“ZAHLE 30.000,- !" 

7060 RETURN 

7070 PRINT"(WHITE3SEH IN DIE SOESE 1 !" 

7080 RETURN 

7090 PRINT"(WHITE3SAUFE EINE AKTIE DER SRUCH 
STAHL-" 

7100 PRINT"AS FUER 100.000,- !" 

7110 RETURN 

7120 PRINT"(WHITE3HERDE FUER 5.000,- AITGLIE 
D IM" 

7130 PRINT"SLUB ABSOLUTER BELATIVISTEN !" 
7140 RETURN 

7150 PRINT"(WHITE3SU BEKOMMST DAS SELD AUS D 
ER" 1 

7160 PR INT ".LOTTER IE 
7170 RETURN 

7180 PRINT"(WHITE3ÜIETE FUER 5.000,- DIE 'II 
TANIC'" 

7190 PRINT"FUER EINE SREUZFAHRT *“ 

7200 RETURN 

7210 PRINT"(WHITE3VERSICHERE FUER 50.000,- E 
IN" 

7220 PRINT"HUESTENSCHIFF GEGEN DAS AUFLÄUFEN 

7230 PRINT"AUF EINE SANDBANK !" 

7240 RETURN 

7250 PRINT"(WHITE3SEH ZUR AKTIENBOERSE !" 
7260 RETURN 

7270 PR INT "(WHITE 3 .ERSTEIGERE FUER 20.000,- D 
AS" 
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7280 PRINT"ANTIKE HQTORBOOT VON BAMSES £1 !" 
729© RETURN 

7300 PRINT"(WHITE,CLR3HDLLEN £IE JJMR SLUECK 
IM SPIEL-" 

7310 PRINT"£ASINO VERSUCHEN ???“ 

7320 RETURN 

7330 PRINT"{WHITEJ£AS FINANZAMT SCHENKT SIR“ 
7340 PRINT"10.000,- !" 

7350 RETURN 
7360 RETURN 

7370 PRINT"{CYAN,RVSON 3 *{5SPACE3":RETURN 
7380 PRINT"{CYAN,RVSON >**{4SPACE3":RETURN 
7390 PRINT”{CYAN,RVSON3***«SPACE3":RETURN 
7400 PRINT"{CYAN,RVSON 3****{2SPACE>": RETURN 
7410 PRINT"{CYAN,RVSON3***** {RVOFF3RETURN 
7420 PR I NT " {CYAN , RVSON }•»*#*** {RVOFF 3 " : RETURN 
7430 WINDOW 9,3,29,3,1:PRINT"{BREEN,RVOFF3"; 
SN;": “;NA*(SN) 

7440 WINDOW 18,5,29,5,1:PRINTUSING"##,###,## 
#" ; KP (SN) ; -.PRINT”,-" 

7450 WINDOW 18,6,29,6,1:IFHH(SN)>0THENPRINTH 
Q*(HH<SN)) 

7460 WINDOW 25,7,29,7,1:PRINTTR(SN) 

7470 WINDOW 25,8,29,8,1:PRINTKU(SN) 

7480 WINDOW 25,9,29,9,1:PRINTBR(SN) 

7490 RETURN 
7500 END 

7510 PRINT"{HOME 3";"{HOME 3";"{CLR3"; 

7520 PRINT" {YELLOW,RVSON,2SPACE3g (ORANGE3g 
{LIG.BLUE333(YELLOW3g g g (YELLOW3g g { 
ORANGE3g {YELLOW3g g G {ORANGE3 g S {YEL 
LOW3g {LIG.BLUE344{YELLOW3 S S S 
7530 PRINT"ögg {ORANGE3 g 1 {LIG. BLUE333{YELLOW 
35 B E {YELLOW315 S {ORANGE3g (YELLOW3g 
S S (ORANGE3g S (YELLOW>g (LIG. BLUE344 { 
YELLOW3g S S "j 

7540 PRINT” C2SPACE,LIG■ RED T RVOFF3 B*.*-*T C {GREY 
3 3 W « (LIG ■ RED 3 (R 

VSON3gg{RVOFF3£'g' {ORANGE, RVSON 3TT"; 

7550 PR INT" {YELLOW 3gg{L IG. RED , RVOFF 3cJl £3 (G 
REY3 3^(21SPACE 3 = {LIG.RED 3 .-.BOESE-(ORANGE 
,RVSON,2SPACE3"; 

7560 PRINT"(YELLOW,2SPACE,LIG.RED3TIRVOFF3K 
O^ (GREY31' g*-*.*-*-»-«-*-*-*-*-*-*-*.*-*-*-*-*-**-*.^ (LIG ■ R 
ED 3c: «SPACE 31(2SPACE3 c: (YELLOW,RVSON 3TT" 

7570 PRINT"gg{LIG.RED3T{RVOFF3T Ec; {GREY33 = { 
WH ITE3JSAPI TAL : {13SPACE , GREY33 —ILIG. RED 3 
?&*£&*.*CYELLOW,RVSON,2SPACE3"; . 

7580 PRINT"(ORANGE,2SPACE,LIG.RED,RVOFF3 = I R 
- {GREY33;c (WHITE3Ü0TEL(2SPACE3:{13SPACE 
, GRE Y3 3c;(7SPACE,YELLOW,RVSON 3 TT" ; 

7590 PRINT"(ORANGE3®?(LIG.RED,RVOFF35- {G 
REY3 3 = (WHITE 3IROCKENOEL{2SPACE 3 SG:(6SPA 
CE,GREY3 3^(7SPACE,YELLOW,RVSON,2SPACE3" 

7600 PRINT"{ORANGE,2SPACE,LIG.RED,RVOFF3cN E 
c; {GREY33 = {WHITE3ÄURZSCHLUSS BG:(6SPACE 
,GREY333{7SPACE,ORANGE,RVSON3TT"5 
7610 PRINT"@B{LIG.RED,RVOFF3TiJU<;3? (GREY33c;{W 
HITE 3 5RUCHSTAHL(2SPACE3 flß:(6SPACE,GREY3 
3 = (7SPACE,ORANGE,RVSON,2SPACE3"; 

7620 PRINT"{YELLOW,2SPACE,GREY3,RVOFF3KJUUfcSÄ 

VSON3TT"; 

7630 PRINT"CGREY3,RVOFF3=«4SPACE3^{YELLOW 
,RVSON,2SPACE 3 "5 

7640 PRINT"{2SPACE,GREY3,RVOFF3 = {34SPACE33{Y 
ELLOW,RVSON 3 TT" ; 

7650 PRINT"gSIGREY3,RVOFF3 = «4SPACE3 3 (YELLOW 
,RVSON,2SPACE 3"; 

7660 PRINT"(ORANGE,2SPACE,GREY3,RVOFF3 = «4SP 
ACE 3 = (ORANGE,RVSON3TT" ; 

7670 PRINT"gg{GREY3,RVOFF 3 = (34SPACE 3 ^{ORANGE 
,RVSON,2SPACE 3"; 

7680 PRINT"{YELLOW,2SPACE,GREY3,RVOFF3TdUUS&S 
? *>>>-«>.*.*.*^-*-*>>-*.*.*.»J<-.«;' B '.*.*.*.«-«.*.' ir{YELLOW, R 
VSON3TT"; 


7690 PRINT"(YELLOW3 gg{RVOFF,6SPACE,GREY3 3d(2 
1SPACE 3^{3SPACE,LIG.RED 3g££g{YELLOW,RVS 
ON,2SPACE 3"; 

7700 PRINT" (LIG. BLUE322{LIG. RED,RVOFF3 W.***«/ g 
(GREY33 = (21SPACE 3 3 «SPACE,LIG. RED 3 {R 

VSON 3 T(YELLOW 3TT"5 

7710 PRINT"(LIG.BLUE322{LIG.RED,RVOFF3c£AR 3 
{GREY33 g*»*»»»?.»«.*_*_*»*.T»»**** , Lr{3SPACE, L 
IG.RED 33 SI{RVSON37(YELLOW,2SPACE3“; 

7720 PRINT"(ORANGE,2SPACE,LIG.RED,RVOFF3^SAC 
E3(BREY3 3 = (CYAN,RVSON,6SPACE,GREY3,RVOF 
F 3 3 C2SPACE,LIG. GREEN,RVSON 3 =(2SPACE,RVO 
FF,2SPACE,GREY3 3 c; (CYAN,RVSON,6SPACE,GRE 
Y3,RVOFF 3 —«SPACE, LIG. RED3=NOc;{YELLOW, R 
VSON3TT" ; 

7730 PRINT"(ORANGE3gg (LIG.RED,RVOFF3Ti(RVSON 

&S.Y «SPACE , LIG. RED 3TüfS?{YELLOW, RVSON 3gg 

7740 PRINT"(2SPACE3g g (ORANGE3g (YELLOW3g g 
{ORANGE3g (YELLOW3g g (WHITE3g {ORANGE 
3g (YELLDWSg g {LIG.BLUE311(YELLDW3g {O 
RANGE3g (YELLOW3g g g (ORANGE3g "; 

7750 PRINT"(YELLOW,2SPACEJg g {ORANGE3g (YEL 
LOW3g g (ORANGE3g (YELLOW3g g (WHITE3g 
(ORANGE3g (YELLOW3g g (LIG.BLUE311(YELL 
OW3g (ORANGE3g (YELLOW3g g g (ORANGE3g 
" 5 

7760 FORI=lTD4:IFBK(1)=IORBK(2)=IORBK(3)=IOR 
BK(4)=ITHENMOVSPR 1,0,0 
7770 NEXT 
7780 RETURN 

7790 REM ********************************* 
7800 REM * TITEL * 

7810 REM ********************************* 
7820 PRINT" {CLR,3SPACE,GREY1,RVSON,3SPACE,RV 
OFF3 (RVSON3 {RVOFF,3SPACE,RVSON3 {RVOF 
- c-3 {RVSON,3SPACE,RVOFF,4SPACE,RVSON,3SP 

hCE,RVOFF 3 (RVSON,4SPACE,RVOFF3 {RVSON, 
3SPACE,RVOFF 3 {RVSON,3SPACE 3" 

7830 PRINT"(3SPACE,RVSON 3 {RVOFF,3SPACE,RVSO 
N,2SPACE,RVOFF3 {RVSON,2SPACE,RVOFF3 (R 
VSON 3 (RVOFF,6SPACE,RVSON 3 (RVOFF,3SPAC 
E,RVSON3 (RVOFF,2SPACE,RVSON3 (RVOFF3 { 
RVSONI {RVOFF,4SPACE,RVSON3 " 

7840 PRINT"«SPACE,RED,RVSON3 {RVOFF,3SPACE, 
RVSON3 (RVOFF3 {RVSON3 {RVOFF3 (RVSON3 
{RVOFF 3 {RVSON,2SPACE,RVOFF,2SPACE,RVSO 
N,2SPACE,RVOFF 3 {RVSON,3SPACE,RVOFF3 {R 
VSON,SHF.SPACE,RVOFF,2SPACE,RVSON 3 {RVO 
FF3 (RVSON,2SPACE,RVOFF,3SPACE,RVSON 3 " 
7850 PRINT"«SPACE,RVSON 3 (RVOFF,3SPACE,RVSO 
N3 (RVOFF,3SPACE,RVSON3 {RVOFF3 (RVSON3 
{RVOFF,BSPACE,RVSON3 {RVOFF3 {RVSON3 { 
RVOFF,2SPACE,RVSON3 {RVOFF3 {RVSON3 {RV 
OFF , 4SPACE, RVSON, SHF. SPACE 3 " 

7860 PRINT"«SPACE,YELLOW,RVSON,3SPACE,RVOFF 
3 {RVSON3 {RVOFF,3SPACE,RVSON 3 {RVOFF3 
{RVSON 3 (RVOFF,6SPACE,RVSON,3SPACE,RVOF 
F3 (RVSON,4SPACE,RVOFF3 {RVSON3 {RVOFF, 
4SPACE,RVSON3 " 

7870 PRINT"{DOWN,7SPACE,RVSON3£ R A E S E N 
T I E R T : " 

7880 PRINT" (DOWN,6SPACE,WHITE3 S **.***.*.****.**.*. 

7890 PR I NT " (LIG. GREEN 3£AS «SPACE , WH I TE 3 ;c£«S 
PACE3£ ££££ £(2SPACE3£ £(2SPACE3£ ££££-. 
(LIG.BLUE3FREI" 

7900 PRINT" «SPACE,WHITE3c££ ££ £(2SPACE3£ £ 
£ £ £ £ «SPACE 3 £ «SPACE 3 £c;" 

7910 PRINT"(LIG.GREEN3SPIEL {WHITE3;c£ £ £ ££ 
££ fcLLf. ££«SPACE3£(2SPACE3£c; {LIG.BLUE 
3NACH" 

7920 PRINT“(6SPACE,WHITE3cl£{ 3SPACE!£ £{2SPAC 
E3£ £ ££ £ £ «SPACE 3 £ «SPACE 3 £c" 

7930 PRINT" {LIG. GREEN3UM (4SPACE , WHITE3c£«SP 
ACE3£ £{2SPACE3£ £{2SPACE3£ £{2SPACE3£ 
££££-. (LIG. BLUE 3 DEM “ 
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7940 PRINT"{ 6 SPACE,WHITE 3-£25SPACE3 = " 

***************************". 

7950 PRINT"£LIG■GREEN3GROSSECWHITE3-TC5SPACF 

8250 PR INT "******** ****** {WHITE , RVOFF 3¥f *.*.*.** 

3£ ££££ £{2SPACE3£ ££££ {LIG. BLUE 

.**.**-».**»**** * * *,*.*.*.** ■ •. 

3£DR-" 

8260 PRINT".*.*.*.*.*.*.*******^-■f?5RP APP3 " - 

7960 PRINT" £ 6 SPACE,WHITE3cJL£ ££ £{2SPACE3£ .€. 

8270 PRINT" {13SPACE>-—'?**.******************** 

£ £ {2SPACE 3 ££ C2SPACE I £ £2SPACE 3*-." 

£*£"; 

7970 PRINT" £LIG.GREEN3£ER-{2SPACE,WHITE3^£. £ 

8280 PRINT"******* *,*.*.*.*.*y" ; : RFTI IRN 

£ ^^Ä£2SPACE>.fj£.<:2SPACE3A£££- £LI 

8290 PRINT"{CLR,YELLOW,RVSON,40SPACE3"; 

G.BLUE3BILD" 

8300 PRINT"{LIG.RED,3SPACE3fl{2SPACE3£C2SPACE 

7980 PRINT" C 6 SPACE,WHITE>^£3SPACE3^ ££2SPAC 

3 £{2SPACE 31. £2SPACE 3£{2SPACE 3£L£2SPACE 3 £{ 

E3£ £ £££2SPACE3££{2SPACE3£{2SPACE3£^" 

2SPACE 3 fl{2SPACE 3 £ C2SPACE3 & C2SPACE 3 £ £2SP 

7990 PRINT"{LIG.GREEN3LUSTE £WHITE3^£3SPACE 

ACE3£C3SPACE3"; 

3£ £{2SPACE3£ £{2SPACE3£ ££££ ££2SPACE3 

8310 PRINT"{YELLOW,40SPACE3" 

£z. CL IG. BLUE 3 VON fl£"; 

8320 PRINT:PRINT 

8000 PRINT" C 6 SPACE.WHITE37MUHHMMUIMWHL**** 

8330 PRINT"{PURPLE,RVSON 3 ******************* 

-*******? 11 

*********************" - 

8010 PRINT"<DOWN3 {CYAN3HRITTEN IN 1986 BY ü 

8340 PRINT"* CRVOFF,10SPACE.WHITE3W********** 

ARTIN EELLENBERG." 

■*.*-*■♦■*.5 C11 SPACE, PURPLE, RVSON 3 * "; 

8020 PRINT" - 

8350 PRINT"*{RVOFF,10SPACE,WHITE3 = £15SPACE3^ 

-:RETURN 

{11SPACE,PURPLE,RVSON 3*"; 

8030 PRINT"{CLR,YELLOW,RVSON,40SPACE3"; 

8360 PR I NT "* {RVOFF, 10SPACE, WHI TE >=;{ 15SPACE 3 = 

8O40 PRINT"{LIG.RED,4SPACE3fl{2SPACE3££2SPACE 

. {11SPACE,PURPLE,RVSON1*"; 

3 £ £2SPACE 3 £ {2SPACE 3£{2SPACE 3 ££2SPACE 3 fl{ 

837© F'R I NT " * {RVOFF, 10SP ACE , WH I TE 3 c: {15SP ACE 3 ^ 

2SPACE 3£{2SPACE 3£ £2SPACE3£{2SPACE 3fi£5SP 

£11SPACE,PURPLE,RVSON 3 *"; 

ACE 3"; 

8380 PRINT"*{RVOFF,10SPACE,WHITE 3-£15SPACE3 3 

8050 PRINT"CYELLOW,40SPACE3" 

{11SPACE,PURPLE,RVSON 3 *"; 

8060 PRINT: 

8390 PRINT"*{RVOFF,10SPACE,WHITE 3-£15SPACE3- 

8070 PRINT"{PURPLE,RVSON3******************* 

£11SPACE,PURPLE,RVSON 3*"; 

*********************"; 

8400 PRINT"*{RVOFF,10SPACE.WHITE39********** 

8080 PRINT"*{LIG.GREEN,RVOFF3£1NSATZ{3SPACE3 

3A*-**.y {11 SPACE , PURPLE, RVSON 3 * "; 

:{2SPACE320.000.-C2SPACE■WHITE 3W***VS** 

8410 PRINT"*{RVOFF,38SPACE,RVSON 3 *"; 

{PURPLE,RVSON 3 *" ; 

8420 PRINT"*{WHITE,RVOFF3FALLENDER £2SPACE3£U 

8090 PRINT"*{RVOFF,23SPACE,WHITE3^£GREY3,RVS 

RS : -15.000,- PRO AKTIE {PURPLE,RVSON3 

ON , 3SP ACE , WH I TE, RVOFF 3 ^£GRE Y3 , RVSON , 3S 

*"; 

PACE,WHITE,RVOFF 3 —{GREY3,RVSON,3SPACE, 

8430 PR I NT " * {WH I TE, RVOFF 3STEIGENDER KJJRS : + 

WHITE,RVOFF3;^ {PURPLE,RVSON 3*" ; 

15.000,- PRO AKTIE {PURPLE,RVSON3*"; 

8100 PRINT"*£CYAN,RVOFF32 GLEICHE :+ 50.000, 

8440 PRINT"* £WHITE,RVOFF 3ADCHKONJ UNKTUR £2SPA 

-{2SPACE,WHITE 3-IGREY3,RVSON,3SPACE,WHI 

CE3: +15.000,- PRO AKTIE {PURPLE,RVSON3 

TE, RVOFF 3^CGREY3, RVSON, 3SPACE , WH ITE, RV 

* " 5 

OFF 3 — {GREY3,RVSON,3SPACE,WHITE,RVOFF 3- 

8450 PRINT"********************************* 

{PURPLE,RVSON3*"; 

*******"- 

8110 PR INT“* {CYAN, RVOFF 33 GLEICHE -.+150.000, 

8460 PRINT:PRINT 

- £2SPACE,WHITE 3 - £GREY3 , RVSON,3SPACE,WHI 

8470 PRINT"{WHITE3ANMERKUNG : £EI ADCHKONJUN 

TE , RVOFF 3^z;£GREY3 , RVSON , 3SPACE, WHI TE, RV 

KTUR BEKOMMEN" 

OFF 3 — {GREY3,RVSON,3SPACE,WHITE,RVOFF3^ 

8480 PRINT"£12SPACE3£IE FUER {RVSON3JEDE£RVO 

{PURPLE,RVSON3*"; 

FF3 AKTIE 10.000,-"; 

8120 PRINT"*{CYAN,RVOFF33X fiOLLAR :+300.000, 

8490 PRINT" £ DOWN3W************************** 

- I2SPACE , WH I TE 3 7***y7.«.*.*.W*.*.*y {PURPLE, R 

.*.*■*■*.*-***** **^"* - 

VSON3*" ; 

8500 PRINT"^£3BSPACE3 = "; 

8130 PRINT"********************************* 

8510 PRINT" ?******************************** 

*******" 

.*■*.*.*■*■*.7" ; : RETURN 

8140 PRINT 

8520 PRINT"£CLR,YELLOW,RVSON,40SPACE3"; 

8150 PRINT"{RVSON3************************** 

B530 PRINT"{LIG.RED,5SPACE3fl£2SPACE3fl{2SPACE 

**************" ; 

3X£2SPACE3fl{2SPACE 3 £ £2SPACE 3 £ {2SPACE3 &£ 

8160 PRINT"*{RVOFF,38SPACE,RVSON3*"; 

2SPACE 3A C2SPACE 3££2SPACE 3A£7SPACE3 "; 

8170 PRINT"CRVSON,PURPLE3 * {GREEN300{RED332£G 

8540 PRINT"{YELLOW,40SPACE3"; 

REY3315 CRED319 CGREY3304{RED321{GREY3302 

8550 PRINT:PRINT 

{RED 3 25 {GREY3 317 {RED 334 {GREY3 3 06 {RED 327 

8560 PRINT" {GREY33. *.*.*.*.*.*.***.****•*••******•** 

CGREY3313{RED 336{GREY3 311£RED330{GREY33 

************** " 5 

08{RED 323 CGREY3310{PURPLE 3*{RVOFF 3 " 

8570 PRINT"C3BSPACE,LIG.RED3— " 

8180 PRINT"{RVSON,PURPLE3*{RVOFF,38SPACE,RVS 

8580 PRINT"{38SPACE3— “ 

ON3*{RVOFF3" 

8590 PRINT - { G R E Y 3 3 ************** ************ 

8190 PRINT"CRVSON,PURPLE3*{RED305{GREY3324£R 


ED316{GREY33 33{RED301{GREY3320IRED314 IG 

8600 PRINT”£38SPACE,LIG.RED>— " 

REY3 3 31£RED 3 09 £GREY3 322{RED 318{GREY3 329 

8610 PRINT"{38SPACE3=" 

{RED >07{GREY33 28 CRED 312{GREY3 335 CRED 3 03 

B620 PRINT" £GREY33 ************************** 

CGREY3326{RVOFF,2SPACE,RVSON,PURPLE3*{R 

******«-«**♦**»" ■ 

VOFF3" 

8630 PRINT"{38SPACE , LIG.RED 3 — " 

8200 PRINT"{RVSON3*{RVOFF,38SPACE,RVSON3*{RV 

8640 PRINT"£38SPACE>=" 

OFF 3" 

8650 PRINT" {GREY33.************************** 

8210 PRINT"CRVSON3*{RVOFF,WHITE3£AHL{3SPACE3 

***** **#,*,i*j* m * m # m *," - 

:£-£ATZ{2SPACE35.000,- fl" ; 

8660 PRINT " {38SPACE,LIG.RED 3 —" 

8220 PRINT-EW. 150.000,-{PURPLE,RVSON>**{WHI 

8670 PRINT"{38SPACE3=" 

TE,RVOFF3flUTZEND:£-flATZ 20.000,- fl"; 

8680 PRINT" {GREY33.*.*.*.*.*.*.*.******************* 

8230 PRINT-EW. 100.000,-{PURPLE,RVSON3**{WHI 

* * * * **_*_******* • ■. 

TE, RVOFF > £ARBE C2SPACE >: £-.§ATZ 50. 000,- 
£"; 

8690 PRINT"{36SPACE , LIG . RED3£IEL "; 

824;0 PRINT"EW.C2SPACE380.000, - {PURPLE,RVSON3 
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8700 PRINT 

9090 PRINT" = CGREY3 3 TU CRVSON,13SPACE,WHITE,RV 

8710 PRINT" IWHITEJW**.*^*^*******_-»*l ****** 

OFF3^" 


9100 PR I NT " c; CGREY3, RVSON, 2SPACE, RVOFF JTiUÜ CR 

8720 PRINT"^I38SPACE }-" ; 

VSON,2SPACE,RVOFF 3UU CRVSON,5SPACE,WHITE 

8730 PRINT" = I38SPACEJ = "; 

,RVOFF}-" 

8740 PRINT"^{38SPACE} = "; 

9110 PRINT"^CGREY3,RVSON,6SPACE,RVOFF3TTIRVS 

8750 PRINT" = C38SPACEJ = "; 

ON,2SPACE,RVOFF 3 TU CRVSON,3SPACE,WHITE,R 

B76# PRINT"^I3BSPACE>-"; 

VOFF Je:" 

8770 PRINT"y&*.*.*.*.*.********>^ 

9120 PRINT"-IGREY3,RVSON,12SPACE,RVOFFJTTÜCW 

**_*..«..**.?"; : RETURN 

HITE3=" 

8780 PRINT"ICLR,YELLOW,RVSON,40SPACEJ" ; 

9130 PRINT"-IYELLOW,RVSON,2SPACEJ JOJRZSCHLUSS 

8790 PRINT"ILIG.RED,BBPACE1 & I3SPACE3AI3SPACE 

C2SPACE,WHITE,RVOFF > 3 " 

3 £I3SPACEI §. £3SPACE J£ C 6 SPACE 31I8SPACE3 "5 

9140 PRINT"y.**-*_*.*.*_*.***.**.***V" : : RETURN 

8800 PRINT"{YELLOW,40SPACEJ "5 

9150 PRINT" IWHITE3 W.***************s" 

8810 PRINT:PRINT 

9160 PRINT"^ CGREY3,RVSON,13SPACE,RVOFFJOTCWH 

8B20 PRINT"IDOWN,PURPLE,RVSON}************** 

ITE3-" 

**************************"- 

9170 PRINT"3IGREY3,RVSON,6SPACE,RVOFFJUCRVSO 

8830 PRINT"*IRVOFF,12SPACE,WHITE 3 

N,2SPACE,RVOFF 3UÜTT CRVSON,2SPACE,WHITE, 

SJL'S I12SPACE, PURPLE, RVSON > * " ; 

RVOFFJd" 

8B40 PRINT"*IRVOFF,12BPACE,WHITE> 3 !BREY3,RVB 

9180 PRINT"^IGREY3,RVSON,2SPACE,RVOFFJUOTTCR 

□N, 5SPACE , WH I TE, RVOFF 3 — CGREY3, RVBON, 5B 

VSONJ IRVOFF J TT CRVSON,6SPACE,WHITE,RVOF 

PACE,WHITE,RVOFF 3^112SPACE,PURPLE,RVSON 

FJ = " 

>*"; 

9190 PRINT" = IGREY33 OTIRVSON,13SPACE,WHITE,RV 

8850 PRINT"*IRVOFF,12SPACE,WHITE J 3 IGREY3,RVB 

OFF3—" 

ON,5SPACE,WHITE,RVOFF3 z^:tBREY3,RVBON,5S 

9200 PRINT"-CLIG.BLUE,RVSON,2SPACE3 JUCHSTAH 

PACE,WHITE,RVOFF3z:I12BPACE,PURPLE,RVSON 

L C3SPACE,WHITE,RVOFF 3 

>*"; 

9210 PRINT"'7***********.***».?" - : RETURN 

8860 PRINT"*IRVOFF,12SPACE,WHITE>—IGREY3,RVS 

9220 PRINT"IWHITE>W************" 

ON, 5SPACE, WH I TE , RVOFF J^IGREYS, RVSON , 5B 

9230 PRINT" 3 CGREY3JTUIRVSON,13SPACE,WHITE,RV 

PACE,WHITE,RVOFF J^t12BPACE,PURPLE,RVBON 

OFF}-“ 

J*"; 

9240 PRINT" —CGREY3,RVSON,2SPACE,RVOFF JTTUU CR 

8870 PRINT"*IRVOFF,12BPACE,WHITE J = IGREY3,RVB 

VSON,2SPACE,RVOFF 3 UU CRVSON,5SPACE,WHITE 

ON,5SPACE,WHITE,RVOFF > — IGREY3,RVSON,5S 

,RVOFF3-” 

PACE,WHITE,RVOFF 3-112BPACE,PURPLE,RVSON 

9250 PRINT"-IBREY3,RVSON,6SPACE,RVOFF 3 TT CRVS 

}*"; 

ON,2SPACE,RVOFFJTUIRVSON,3SPACE,WHITE,R 

8880 PRINT"*IRVOFF,12SPACE,WHITE 3 = CGREY3,RVS 

VOFF3^" 

ON, 5SPACE, WH I TE, RVOFF IGREY3 , RVBON, 5S 

9260 PRINT" 3 CGREY3,RVSON,12SPACE,RVOFF3 TTUCW 

PACE,WHITE,RVOFF 3^112BPACE,PURPLE, RVSON 

.«gap ^ TE> “' 

}*"; 

927W PRINT"-CLIG.BLUE,RVSON,2SPACE 33RUCHSTAH 

8890 PRINT"*IRVOFF. 12SPACE.WHITE!y*.*.*.*.*??*.** 

LI3SPACE,WHITE,RVOFF3-" 

££*< 12SPACE,PURPLE,RVSON >*"; 

9280 PR I NT " ?***************V" - = RFTIIRN 

8900 PRINT"*IRVOFF,38SPACE,RVBONI *"5 

9290 PRINT"IWHITEJU***************T" 

8910 PRINT"*ILIG.GREEN,RVOFF>KEINE £INSI3SPA 

9300 PRINT"-CGREY3,RVSON,13SPACE,RVOFF JUTCWH 

CE 3: 2.500,- * flJJGEN AN SANKIPURPLE,RVB 

ITEJ^" 

ON}*"; 

9310 PRINT”z;IBREY3, RVSON, 6SPACE, RVOFF3UCRVSO 

8920 PRINT"*ILIG.GREEN,RVOFF JEINEC2SPACE J£I N 

N,2SPACE,RVOFF 3 UOTT CR VSON,2SPACE,WHITE, 

SI3SPACEJ: 100.000,- VON DER SANK IPURP 

RVOFF Je." 

LE,RVBON>*"; 

9320 PRINT"^ CGREY3,RVSON,2SPACE,RVOFF JUUTTIR 

8930 PRINT"*ILIG.GREEN,RVOFFJZWEII2BPACE>£IN 

VSON J IRVOFF 3 TTIRVSON,6SPACE,WHITE,RVOF 

BEN : 300.000,- VON DER SANK IPURPLE,RV 


SONJ*"; 

9330 PRINT”-IGREY33UTCRVSON,13SPACE,WHITE,RV 

8940 PRINT"********************************* 

OFFJ = " 

*******"; 

9340 PRINT"-ILIG.GREEN,RVSON,2SPACE3IROCKENO 

8950 PRINT:PRINT 

ELI3SPACE,WHITE,RVOFF J-" 

8960 PRINT"IWHITEJANMERKUNG : SEI IRVBONJKEI 

9350 PR I NT " • 7 ************* **V" : = RFTI IRN 

NER £1NSIRVOFF> KOENNEN SIE" 

9360 PRINT"CWHITE3B***************T" 

8970 PRINT"112SPACEJMIT HUERFELN FORTFAHREN. 

9370 PRINT"^IGREY33TUCRVSON,13SPACE,WHITE,RV 

" 

OFF 3—" 

89B0 PRINT" CDOWNJW»«**.**»«-««***-******.*,».*»»»» 

9380 PRINT"-CGREY3,RVSON,2SPACE,RVOFFJTTUUCR 

************■§■•'; 

VSON,2SPACE,RVOFF 3 UU CRVSON,5SPACE,WHITE 

8990 PRINT" 3 13BSPACE J 3 "; 

,RVOFF3 3 " 

9000 PRINT" 7*■*■**■**-*-**-*-**-«-*-*** **_»* **_»»*** * * * * 

9390 PRINT ”3 CGREY3,RVSON, 6 SPACE,RVOFF 3TT CRVS 

***_***V" : : RETURN 

ON,2SPACE,RVOFF 3 TU CRVSON,3SPACE,WHITE,R 

9010 PRINT" IWHITE JW.*.*.*.***.**_**.*.*.*.**^" 

VOFFJ-" 

9020 PRINT"^CGREY3,RVSON,13BPACE,RVOFF JOT IWH 

9400 PRINT" = IGREY3,RVSON,12SPACE,RVOFF3TTUCW 

ITEJa" 

HITEJ 3 " 

9030 PRINT" = IGREY3,RVSON,6SPACE,RVOFF JUIRVSO 

9410 PRINT" 3 CL IG.GREEN,RVSON,2SPACE3IROCKENO 

N,2SPACE,RVOFF J UOTTIRVBON,2SPACE,WHITE, 

EL I3SPACE, WH I TE , RVOFF J 3 " 

RVOFF3 = " 

9420 PRI NT "T***************V" : : RETURN 

9040 PRINT" = IGREY3,RVSON,2SPACE,RVOFF J UOTTIR 

9430 PRINT"CWHITE3W***************^" 

VSONJ IRVOFF 3TTIRVSON,6SPACE,WHITE,RVOF 

9440 F0RI = 1T04:PRINT" = CLIG. GREEN,RVSON 3 *$$:*:* 

FJ-" 

$**:$***$:$*IRVOFF, WHITE3 3 ": NEXT 

9050 PRINT" 3 IBREY3JOTIRVSON,13SPACE,WHITE,RV 

9450 PRINT" CRVOFF■WHITE3-CRVSON,LIG■RED3KOCH 

OFFJs" 

K.O.NJUXKTU.R. CR VOFF .WHITE}-" 

9060 PRINT"c:tYELLOW,RVBON,2SPACEJ.KURZSCHLUSS 

9460 PRINT" IWHITE . RVOFF3y.**.**.**.*********'7" : R 

I2SPACE,WHITF,RVOFF 3-" 

ETURN 

9070 PRINT"y**.*.*.***.***.*****V" : : RETURN 


9080 PRINT" IWHITEJW*.**.************'?" 
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Knobelfreunde aufgepaßt! 


Haben Sie auch Schwierigkeiten mit Knobelauf¬ 
gaben, bei denen Zahlen durch Symbole ersetzt 
sind? Dann wir Ihnen das folgende Listing helfen: 
Es nimmt Ihnen die Arbeit des Knobelns ab. 

S ie kennen sicher Knobelaufgaben, wie sie in diversen 
Zeitschriften unter den Titeln »Da raucht der Kopf« oder 
auch »Für gewitzte Köpfe« gestellt werden (Bild). Bei 
diesen Aufgaben handelt es sich um Gleichungen, die bei¬ 
spielsweise folgendermaßen aussehen können: 
ABCD+AEFC=GHIH 
/ + 

AFJJ+ EBC=AEDF 


"=Ö#®(D - ®00(D 

= ®®b 


+IOH >. 


oo 


Bild. So könnte eine Knobelaufgabe zu diesem Thema aus¬ 
sehen. Jede Figur bedeutet hier eine Ziffer. Sie müssen die 
richtigen Ziffern für die Figuren herausfinden. 


BGH * JE=VDGH 

Natürlich werden in Zeitschriften anstatt der Buchstaben 
verschiedene Symbole verwendet. Dies ändert aber am 
Prinzip der Knobelaufgabe nichts. Jeder Buchstabe bezie¬ 
hungsweise jedes Symbol bedeutet eine Ziffer. Gleiche 
Buchstaben bedeuten gleiche Zahlen. Die Aufgabe des 
Spiels ist es, durch Knobeln und Rechnen die richtigen Zif¬ 
fern für die Buchstaben oder Symbole herauszufinden. 

Das folgende Programm (Listing 1 und 2) löst nun diese 
knifflige Aufgabe. Die Voraussetzung dafür ist, daß der 
Spieler die Aufgabe in das oben ersichtliche Format bringt. 
Das bedeutet, daß jedes Symbol durch einen Buchstaben 


von A bis J ersetzt wird. Die so umgestellte Aufgabe läßt 
sich nun wie folgt lösen: 

Zuerst sind die Buchstaben einzugeben. Mit den Cursor- 
Tasten lassen sich Fehleingaben korrigieren. Anschließend 
erfolgt die Eingabe der Rechenoperationen. 

Das Programm braucht in der Regel etwa drei Minuten, 
um eine Aufgabe zu lösen. 

Wenn Sie nun Geschmack an solchen Knobelaufgaben 
gefunden haben, können Sie es ja zuerst allein versuchen, 
bevor Sie in aussichtslosen Situationen dieses Programm 
zu Hilfe nehmen. (Artur Wystub/dm) 


1000 

GOSUB 1940 <210> 

.1350 

t-JTO 1260 

<244> 

1005 

IF A=0 THEN A=lsLOAD"KNOBEL MC",8,1 

<214> 

1360 

* 

<246> 

1009 

SS=“{HOME,16D0WN>“ 

< 165> 

1370 

' EINGABEROUTINE FUER 9 ZAH LEN 

< 128> 

1010 

N*="ABCDEFGHIJ" 

<090> 

1380 

' 

<010> 

1020 

S(0)=17:S<1> =55:S(2)=60:S(3)=65 

<127> 

1390 

N=0 

<073> 

1030 

S(4)=97:S<51=177 

<230> 

1400 

H*(0>=MID*<ZI*(N),1;1> 

< 131 > 

1040 

DIM ZI*(8>,0P*<5>,GL*<5) 

<040> 

1410 

H*(1)=MID* <ZI*(N),2,1) 

< 175> 

1050 

GOTO 2310: HAUPTROUTINE 

<081 > 

1420 

H*(2)=MID*(ZI* <N),3,1) 

<219> 

1060 

* 

<200> 

1430 

H*(3)=MID*(ZI*(N),4,1) 

<007> 

1070 

• ZI*<81 DIE EINGEGEBENEN 4 STEL- 

< 178> 

1440 

GOSUB 1250 

<062> 

1080 

LIGEN ZAH LEN 

<077> 

1450 

PRINT"{2D0WN,15SPACE>0K <J,N> ?" 

< 181 > 

1090 

' OP*(51 DIE EINGEGEBENEN 

<207> 

1460 

GET A*rIF A*=““THEN 1460 

< 115> 

1100 

OPERA TO REN 

<026> 

1470 

PRINT”{UP,26SPACE,3UP>“ 

<216> 

1110 

• GL*<51 UMGE FOR MTE GLEICHUNGEN 

< 172> 

1480 

IF A*="N"THEN 1390 

< 184> 

1120 

ZU + UND * GLEICHUNGEN 

< 165> 

1490 

IF A*< >“ J"THEN 1450 

<243> 

1130 

FOR MTEN GLEICHUNG 

<046> 

1500 RETURN 

<032> 

1140 

********************************** 

< 131 > 

1510 

* 

< 140> 

1150 


<034 > 

1520 

• EINGABEROUTINE FUER OPERA TO REN 

<15B> 

1160 

' DIE ZAH LEN- UND OPERATI ON S- 

<077> 

1530 

* 

< 160> 

1170 

VARIABLE LOESCHEN 

< 165> 

1540 

FOR N=0 TO 5 

< 124> 

1180 


<064> 

1550 

PRINT SSTAB(S (N) )“ {RVSON }" OP* (N) “ {RVO 


1190 

FOR T=0 TO 5: OP*(T) =" ": NEXT 

< 149> 


FF>“ 

<095> 

1200 

FOR T=0 TO 8:ZI*(T)=”<4SPACE>“ : NEXT 

<027> 

1560 

OP* (N) =““ 

<207> 

1210 

RETURN 

<252> 

1570 

GET A*:IF A*=““THEN 1570 

< 163> 

1220 


< 104> 

1580 

IF A*< >" + " AND A*< >" — “AND A*<>“*"AND A 


1230 

• EINGABEROUTINE FUER EINE ZAHL 

<235> 


SO“/" THEN 1570 

<201 > 

1240 

* 

< 124> 

1590 

OP*<N)=A*:PRINT S*TAB (S <N> ) A*:NEXT 

< 104> 

1250 

N=0:L=0 

< 158> 

1600 

PRINT"{2D0WN,155PACE>0K (J,N) ?“ 

<077> 

1260 

H=13+INT(N/3)*65+N*5 

< 169> 

1610 

GET A*:IF A*="“THEN 1610 

<00B> 

1270 

PRINT S*TAB(H+Ll”{RVSON>"MID*(ZI*(N), 


1620 

PRINT“{UP,26SPACE,3UP>" 

< 112> 


L+1,1)"{RVOFF>“RIGHT*(ZI*<N),3-L) 

<236> 

1630 

IF A*="N“THEN 1540 

<016> 

1280 

GET A*:IF A*=““THEN 1280 

<063> 

1640 

IF A*<>"J"THEN 1600 

<011> 

1290 

IF<A*>=“A" AND A*<="J“1OR A*=" “THEN 


1650 

RETURN 

<184> 


1320 

< 148> 

1660 

' 

<036> 

1295 

IF A*="<LEFT>“AND L>0 THEN L=L-l:GOTO 


1670 

' GLEICHUNG ZU + ODER * GLEICHUNG 

<072> 


1260 

<174> 

1680 

' UM FOR MEN 

<041 > 

1296 

IF A*="<LEFT>“AND L=0 AND N>0 THEN N= 


1690 


<066> 


N—1:L=3:PRINT S*TAB<H>ZI*(N+l) 

<035> 

1700 

A#=ZI*(0):B*=ZI*<1>:C*=ZI*(2) 

<097> 

1297 

IF A*="{RIGHT>“THEN 1330 

<008> 

1710 

0*=0P*(0):GOSUB 1860:GL*(0)=D* 

<074> 

1300 

GOTO 1260 

< 194> 

1720 

A*=ZI*<3):B*=ZI*<4):C*=ZI*<5> 

<243> 

1320 

ZI*(N)=LEFT*(ZI*(N),L> +A*+RIGHT*(ZI*( 


1730 

0*=0P*(4):GOSUB 1860:GL*(1)=D* 

< 166> 


N) ,3-L) 

<234 > 

1740 

A*=ZI*(6):B*=ZI*(7):C*=ZI*<8) 

< 134> 

1330 

PRINT S*TAB(H)ZI* <N) 

<094> 




1340 

L=L+1:IF L=4 THEN N=N+1:L=0:IF N>8 TH 






EN RETURN 

< 194> 
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STRATEGIE-SPIELE 


C64 


1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2355 

2356 
2360 
2365 
2370 

2375 

2380 

2385 

2390 

2395 

2399 

2400 

2401 

2402 

2403 

2404 

2405 

2406 
2410 
2415 
2420 
2425 


0*=0P*(5):GOSUB 1860!GL*(2)=D* 
A*=ZI*(0>:B*=ZI*(3>:C*=ZI*(6> 
0*=0P*(1):GOSUB 1860:GL* (3)=D* 
A*=ZI*(1):B*=ZI*(4):C*=ZI*(7) 
0*=0P*(2>:GOSUB 1860:GL*<4>=D* 
A*=ZI*(2):B*=ZI*(5):C*=ZI*(8) 
0*=0P*(3):GOSUB 1860:GL*<5)=D* 
RETURN 

' UM FOR M ROUTINE 


IF 0*="+"THEN D*= 
IF 0*="-“THEN D*= 
IF 0#="*" 


1 " + "+A*+B*+C* 
>" + "+C*+B*+A* 
THEN D*="*"+A*+B*+C* 
IF 0*="/“THEN D*= ,, * ,, +C*+B*+A* 
RETURN 


• BILDSCHIRMMASKE AUSDRUCKEN 

PR I NT ■■ CCLR, GREEN > “: POKE 53248+32,0: PO 
KE 53248+33,0 

PRINT"ERLAUBTE SYMBOLE SIND BUCHSTABE 
N 

PRINT 

PRINT":<6SPACE}A,B,C,D,E,F,G,H,I,J" 
PRINT 

PR INT "UND RECHENOPERATIONEN 
PRINT 

PRINT":<6SPACE>+,-,X,/ 

PRINT 

PRINT-DIE ZAHLEN SIND MAXIMAL 4 STELL 
IG 

PRINT 

PRINT"- 


PRINT:PRINT 
PRINT¬ 
PRINT" <12SPACE >H — 


5 


<252> 

<045> 

<072> 

< 107> 

< 159> 

< 172> 
<247> 
< 100 > 
<208> 
<036> 
<228> 

< 196> 
< 210 > 
<024> 

< 167> 

< 180> 
<032> 
<242> 
<052> 

<111> 

<068 > 
<028> 
<051 > 
<048> 
<224> 
<068> 
<013> 
<08B> 

<064> 

<10B> 

<029> 

<236> 

< 157> 
< 221 > 

< 172> 
<083> 
<192> 
<087> 


PRINT"<12SPACE>-<9SPACE>= C4SPACEJ- 
PRINT“<12SPACE > — {14SPACE >3 
PRINT"<12SPACE> = <9SPACE>=<4SPACE> = 

PRINT" <12SPACE> = - = <087> 2720 

PRINT"<12SPACE >-<9SPACEJ= C4SPACE > = < 21 2> 

2730 
2740 
2750 

2770 

2771 

2772 

2773 
2800 
2801 
2802 
2805 


PRINT" {12SPACEJ?-* 

PRINT" 

PRINT" 

RETURN 

•EINGEGEBENE GLEICHUNGEN UNLOESBAR 

PRINT"(DOWN,RVSON1UNLOESBAR !‘!!" 
PRINT"<RVOFF>WEITER MIT TASTE" 

GET A*:IF A*="“THEN 2230 
RUN 


HAUPT - ROUTINE 


GOSUB 

GOSUB 

GOSUB 

GOSUB 

GOSUB 


BILD-MASKE 


1940:REM 
1190:REM 

1390:REM EINGABE 

1540:REM 

1700:REM BLEICH. 


UMFORMEN 
GOSUB 2605:REM GLEICH. SORTIEREN 
GOSUB 2700:REM 0 UND 9 RAUSFINDEN 
FOR T=0 TO 5 
POKE 52320+T,255 

IF MID*(GL*(T),1,1)="+"THEN POKE 5232 

0+T.0 

NEXT 

FOR T=0 TO 5 

FOR X=2 TO 13 

P=ASC(MID* <GL*(T),X,1))-65 

IF P<0 THEN P=10 

POKE 52222+T*16+X,P:NEXT X,T 

P=0:IF W0*<>""THEN P=P+1 

IF W9*< >""THEN P=P+1 

POKE 829,P 

GOSUB 3005:REM ANEUP VORBEREITEN 
PRINT"<2D0WN,14SPACE>BITTE WARTEN" 

SYS 12*4096:REM ****************** 

IF PEEK(828)=0 THEN 2550 
FOR T=0 TO 8:E*="“ 

FOR X=1 TO 4 
B*=MID*(ZI*(T),X,1) 

IF B*=" "THEN E*=E*+B*:GOTO 2450 


<103> 

<237> 

<247> 

<196> 

<048> 

< 123> 
<068> 
<249> 
<192> 

< 152> 
<250> 

< 159> 

< 185> 
< 200 > 
<205> 

< 199> 
<16B> 

< 141 > 
<211 > 
<236> 

< 134> 
<006> 
<024> 
<070> 
<230> 
<015> 

< 187> 
<099> 
<250> 

< 144> 
<014> 
<067> 
<211 > 
<238> 
<051 > 
<016> 

< 197> 
<198> 
<065> 

< 166> 
<233> 
<221 > 
<004> 
<057> 


2430 

2435 

2440 

2450 

2455 

2500 

2510 

2520 

2530 

2535 

2540 

2545 

2550 

2560 

2565 

2600 

2601 

2602 

2605 

2610 

2615 

2616 

2617 

2618 
2620 
2630 
2690 

2695 

2696 

2700 

2701 
2705 

2710 

2715 


2810 

2815 

2820 

2830 

2840 

2850 

2870 

3000 

3001 

3002 
3005 
3100 
3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3185 

3190 

3200 

3205 


P=ASC(B*>-65 
P—PEEK(52464+P) 

E*=E*+CHR*(PEEK(52448+P)+48) 

NEXT X 

ER*(T)=E*:NEXT T 
FOR N=0 TO 8 
H=13+INT(N/3)*65+N*5 
PRINT S*TAB(H)ER*(N) 

NEXT N 

PRINT“(2D0WN,16SPACE>FERTIG !<15SPACE 
>" 

GET A*:IF A*=""THEN 2540 
RUN 

PRINT"<UP>TJA...DAS IST MIR DOCH ETWA 
S ZU SCHWER." 

BET A*:IF A*="“THEN 2560 
RUN 

• GLEICHUNGEN S OR TIEREN 
E=0:FOR T=0 TO 5 

IF MID*(GL*(T),1,1)="+"THEN G*(E)=GL* 
(T):E=E+1 
NEXT:PL=E 
FOR T=0 TO 5 

IF MID*(GL*(T),1,1)="*"THEN G*(E)=GL* 

(T):E=E+1 

NEXT 

FOR T=0 TO 5:GL*(T)=G*(T):NEXT 
RETURN 

' 0 HERAUSFINDEN 
W0*=““:W9*=““ 

FOR T=0 TO PL—1:REM ANZAHL DER + GL. 
A*=MID*(GL*(T),5,1):IF A*=" "THEN 275 
0 

B*=MID*(GL*(T),9,1):IF B*=“ "THEN 275 
0 

C*=MID*(GL*(T),13,1):IF C*=" "THEN 27 
50 

IF A*=C*AND A*=B*THEN W0*=A*:GOTO 275 
3 

IF A*=C*THEN W0*=B* 

IF B*=C*THEN W0*=A* 

NEXT 

GOTO 2800 

' 9 HERAUSFINDEN 

REM IFW0*=""THENRETURN 

FOR T=0 TO PL—1:REM ANZAHL DER + GL. 

FOR S=1 TO 3 

A*=MID*(GL*(T),6-S,1):IF A*=" “THEN 2 
850 

B*=MID*(GL*(T),10+S,1):IF B*=" "THEN 
2850 

C*=MID*(GL*(T),14—S,1):IF C*=“ "THEN 
2850 

IF A*=C*AND A*=B*AND A*<>W0*THEN W9*= 
A*:GOTO 2850 

IF A*=C*AND B*< >W0*THEN W9*=B* 

IF B*=C*AND A*< >W0*THEN W9*=A* 

NEXT S,T 
RETURN 

• ANEUP V OR BEREITEN 
REM 

A*=N*:FOR T=1 TO 10 

IF MID*(A*,T,1)=W9*THEN A*=W9*+LEFT*( 
A*,T—1)+RIGHT*(A*,10-T) 

NEXT 

FOR T=1 TO 10 

IF MID*(A*,T,1)=W0*THEN A*=W0*+LEFT*( 
A*,T—1)+RIGHT*(A*,10—T) 

NEXT 

FOR T=0 TO 9 

POKE 52464+ASC(MID*(A*,T+1,1))-65,T 

NEXT T 

POKE 52352,0 

FOR T=9 TO 1 STEP—1 

POKE 52352+10—T,T:NEXT 

RETURN 


<122> 
<241 > 
<013> 
<112> 

< 143> 

< 196> 

< 149 > 
<009> 
<112> 

< 133> 
<018> 
<045> 

< 149> 
<041 > 
<067> 
<216> 
<202> 
<218> 
<012> 

<043> 

<002> 

<232> 

<046> 

<088> 

<255> 

< 148> 
<050> 
<090> 
<056> 

< 147> 

< 186> 

< 179> 
<205> 
<031 > 

< 169> 
<034 > 
<020> 
<220> 
<050> 
<131 > 
<239> 

< 133> 
<067> 
<030> 

< 185> 

<039> 

<217> 

<101> 

<054> 
<047> 
<031 > 
<040> 

< 134> 

< 106> 

< 146> 

< 10B> 
<017> 

< 108> 

<079> 

<082> 

<060> 

<010> 
< 112 > 
<014> 
<222> 
<048> 
<011> 
<013> 
<053> 
<215> 
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STRATEGIE-SPIELE 


Name : 

knobel mc 



cOOO c295 

c0d8 : 

dO 

ef 

a9 

00 

8d 

76 

cc 

ae 

27 

clb8 

: 

c9 

09 

fO 

03 

4c 

30 

cO 

ad 

47 




— 







cOeO : 

76 

cc 

bd 

cO 

cc 

8d 

e6 

CC 

b2 

clcO 

: 

3d 

03 

c9 

01 

dO 

03 

4c 

d6 

15 

cOOO : 

78 

a9 

00 

a2 

00 

9d 

70 

CC 

ea 

c0e8 : 

aO 

00 

a2 

00 

cc 

76 

cc 

fO 

c7 

c lc8 

: 

cl 

ee 

70 

CC 

ad 

70 

cc 

c9 

db 

c008 : 

e8 

eO 

Oa 

dO 

f 8 

ae 

70 

CC 

5d 

cOfO : 

07 

b9 

cO 

cc 

9d 

c8 

cc 

e8 

c3 

cldO 

: 

Oa 

fO 

03 

4c 

Od 

cO 

58 

60 

96 

cOlO : 

bd 

80 

cc 

8d 

eO 

cc 

aO 

00 

e9 

cOf8 : 

c8 

eO 

03 

dO 

•f 

a9 

00 

8d 

73 

cl dB 

j 

00 

00 

00 

aO 

00 

a2 

00 

8c 

lb 

c018 : 

a2 

00 

cc 

70 

CC 

fO 

07 

b9 

df 

clOO : 

77 

CC 

ae 

77 

cc 

bd 

c8 

CC 

ef 

cleO 

: 

da 

cl 

8e 

d8 

cl 

8a 

18 

69 

fd 

c020 : 

80 

CC 

9d 

90 

CC 

e8 

c8 

•0 

79 

cl08 : 

8d 

e7 

cc 

aO 

00 

a2 

00 

CC 

7f 

cle8 


Oc 

8d 

d9 

cl 

b9 

60 

CC 

fO 

ld 

c028 : 

09 

dO 

ef 

a9 

00 

8d 

71 

cc 

96 

cllO : 

77 

CC 

fO 

07 

b9 

c8 

CC 

9d 

5b 

clfO 


03 

4c 

7d 

c2 

bc 

00 

cc 

cO 

51 

c030 : 

ae 

71 

CC 

bd 

90 

cc 

8d 

el 

eb 

c 118 : 

dO 

cc 

e8 

c8 

eO 

02 

dO 

ef 

e3 

c 1 f 8 


Oa 

90 

05 

a9 

00 

4c 

07 

c2 

c5 

c038 : 

cc 

aO 

00 

a2 

00 

cc 

71 

CC 

6e 

cl20 : 

a9 

00 

8d 

78 

cc 

ae 

78 

CC 

f 9 

c200 

: 

b9 

fO 

CC 

a8 

b9 

eO 

cc 

9d 

8a 

c040 : 

fO 

07 

b9 

90 

CC 

9d 

aO 

cc 

Oa 

c 128 : 

bd 

dO 

cc 

8d 

e8 

cc 

aO 

00 

aa 

c208 

: 

00 

cd 

e8 

ec 

d9 

cl 

dO 

e4 

7f 

c048 : 

e8 

c8 

aO 

08 

dO 

ef 

a9 

00 

01 

cl30 : 

a2 

00 

cc 

78 

cc 

fO 

07 

b9 

f 8 

c210 


a9 

03 

18 

6d 

d8 

cl 

aa 

f 8 

27 

c050 : 

8d 

72 

CC 

ae 

72 

CC 

bd 

aO 

e5 

cl38 : 

dO 

CC 

8d 

e9 

cc 

e8 

c8 

eO 

08 

c218 


18 

bd 

00 

cd 

7d 

04 

cd 

a8 

49 

c058 : 

CC 

8d 

e2 

cc 

aO 

00 

a2 

00 

d2 

cl40 : 

01 

dO 

ef 

20 

db 

cl 

ad 

3c 

a4 

c220 

: 

29 

Of 

dd 

08 

cd 

dO 

4f 

18 

la 

c060 : 

cc 

72 

CC 

fO 

07 

b9 

aO 

cc 

11 

C 148 ! 

03 

fO 

02 

58 

60 

ee 

78 

CC 

48 

c228 

: 

98 

29 

10 

fO 

01 

38 

ca 

bd 

ef 

c068 : 

9d 

a8 

cc 

e8 

c8 

eO 

07 

dO 

fb 

cl50 : 

ad 

78 

CC 

c9 

02 

fO 

03 

4c 

f 2 

c230 

- 

00 

cd 

7d 

04 

cd 

a8 

29 

Of 

de 

c070 : 

ef 

a9 

00 

8d 

7 3 

CC 

ae 

73 

25 

c 158 : 

25 

cl 

ee 

77 

cc 

ad 

77 

CC 

ba 

c238 

: 

dd 

08 

cd 

dO 

39 

18 

98 

29 

bO 

c078 : 

cc 

bd 

a8 

cc 

8d 

e3 

cc 

aO 

53 

cl60 : 

c9 

03 

fO 

03 

4c 

02 

cl 

ee 

01 

c240 

! 

10 

fO 

01 

38 

ca 

bd 

00 

cd 

46 

c080 1 

00 

a2 

00 

cc 

73 

cc 

fO 

07 

da 

c 168 : 

76 

CC 

ad 

76 

cc 

c9 

04 

fO 

8b 

c248 

: 

7d 

04 

cd 

a8 

29 

Of 

dd 

08 

e2 

c088 : 

b9 

a8 

CC 

9d 

bO 

cc 

e8 

c8 

23 

cl70 : 

03 

4c 

df 

cO 

ee 

75 

CC 

ad 

d2 

c250 

s 

cd 

dO 

23 

18 

98 

29 

10 

fO 

46 

c090 : 

eO 

06 

dO 

ef 

•9 

00 

8d 

74 

5f 

cl78 : 

75 

cc 

c9 

05 

fO 

03 

4c 

bc 

38 

c258 

: 

01 

38 

ca 

bd 

00 

cd 

7d 

04 

4c 

c098 : 

CC 

ae 

74 

CC 

bd 

bO 

cc 

8d 

22 

cl80 : 

cO 

ee 

74 

cc 

ad 

74 

CC 

c9 

b3 

c260 

j 

cd 

a8 

29 

Of 

dd 

08 

cd 

dO 

a5 

cOaO : 

e4 

cc 

aO 

00 

a2 

00 

cc 

74 

59 

c 188 : 

06 

fO 

03 

4c 

99 

cO 

ee 

73 

93 

c268 


Od 

18 

98 

29 

10 

fO 

03 

4c 

fa 

c0a8 : 

CC 

fO 

07 

b9 

bO 

cc 

9d 

b8 

3f 

cl90 : 

CC 

ad 

73 

cc 

c9 

07 

fO 

03 

48 

c270 

: 

76 

c2 

d8 

4c 

7d 

c2 

d8 

a9 

ac 

cObO : 

CC 

e8 

c8 

eO 

05 

dO 

ef 

a9 

28 

cl98 : 

4c 

76 

cO 

oe 

72 

CC 

ad 

72 

56 

c278 


00 

8d 

3c 

03 

60 

a9 

10 

18 

72 

c0b8 i 

00 

8d 

75 

CC 

ae 

75 

CC 

bd 

bb 

claO : 

cc 

c9 

08 

fO 

03 

4c 

53 

cO 

d2 

c280 

s 

6d 

d8 

cl 

aa 

ac 

da 

cl 

c8 

59 

cOcO s 

b8 

cc 

8d 

e5 

cc 

aO 

00 

a2 

15 

cla8 : 

ad 

3d 

03 

c9 

02 

dO 

03 

4c 

39 

c288 

: 

cO 

06 

fO 

03 

4c 

df 

cl 

a9 

06 

c0c8 : 

00 

cc 

7 b 

CC 

fO 

07 

b9 

b8 

c5 

clbO : 

d6 

cl 

ee 

71 

CC 

ad 

71 

cc 

ea 

c290 

• 

01 

8d 

3c 

03 

60 

ff 

00 

ff 

cd 

cOdO ! 

CC 

9d 

cO 

CC 

e8 

c8 

eO 

04 

95 























Listing 2. »Knobel MC« - bitte mit dem MSE eingeben 


Spielen Sie Skat? 


Wenn Sie gerne Skat spielen, aber nicht immer 
die nötigen Mitspieler finden, bietet Ihnen dieses 
Skatprogramm Ersatz. Es ersetzt die Spieler 2 
und 3 und ist ein geduldiger Trainingspartner. Sie 
können damit »in Heimarbeit« Ihr Spielkönnen 
verbessern. 

D ieses Spiel kann Ihnen die Mitspieler ersetzen. Sie 
können also unabhängig von anderen Skatspielern 
üben oder das Spiel lernen. Es ist aber auch etwas für 
geübte Spieler, die ihr Können testen oder sogar verbes¬ 
sern wollen. 

Nachdem Sie das Programm (Listing) eingegeben und 
gespeichert haben, starten Sie es mit RUN. Das Programm 
fragt Sie nun nach dem Spieler, der austeilen soll (das ist 
wichtig für das Reizen). Anschließend werden die Karten 
verteilt und Sie können sich Ihre Karten ansehen (Bild). Nun 
läßt sich errechnen, wie hoch gereizt werden kann. Um mit 
dem Reizen beginnen zu können, müssen Sie eine Taste 
drücken. 

Das Reizen läuft wie gewohnt ab. Sollten Sie es gewin¬ 
nen, so fragt der Computer nach den Karten, die weggelegt 
werden sollen. Danach will das Programm wissen, ob Sie 
Grand spielen wollen. Wenn nicht, wird die Trumpffarbe 
festgelegt und das eigentliche Spiel beginnt. 

Der Computer zeigt die gesetzten Karten der Spieler 2 
und 3 an und fragt, welche Karte gesetzt werden soll. Der 
Spieler, der alleine spielt, wird revers dargestellt. Haben 
alle drei Spieler gesetzt, wird die höchste Karte ermittelt, 
und der Spieler beginnt wieder. 

Zum Schluß zeigt der Computer das Ergebnis an. Das 
Ergebnis wird in eine Tabelle übertragen und gespeichert. 
Letztendlich wird wieder der Spieler ermittelt, der austeilt, 
und das Spiel fängt wieder an. 


Allgemeines 

Die Karten werden mit dem der Farbe entsprechenden 
Zeichen (zum Beispiel dem Karo-Zeichen) und dem Wert 
(7,8,9, Z, B, D, K, A) eingegeben. Der Computer beherrscht 
neben dem Farbenspiel den »Grand« und berücksichtigt 
den »Schneider«. Nachdem bei einem Spieler der Trumpf 
festgelegt wurde, wird der Reizwert, den man später für die 
Tabelle braucht, neu berechnet. Falls im Skat Buben sind, 
hat eine Überreizung keine Bedeutung mehr. Der Compu¬ 
ter erkennt, wenn Sie einen Fehler machen. Wenn Sie bei¬ 
spielsweise eine Farbe nicht bedienen und später eine 
Karte dieser Farbe ausspielen. 

Achtung! Zeile 7 darf nicht verändert werden, da hier der 
Computer Daten speichert. 

Auf der Programm-Service-Diskette gibt es zusätzlich 
eine compilierte und damit schnellere Version. 

(Norman Krull/dm) 



RECHNE AUS, WIE HOCH DU REIZEN KANNST' 
TASTE DRUECKEN ! 


Bild. Hardcopy aus dem Skatprogramm, nachdem die Kar¬ 
ten verteilt wurden. 
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STRATEGIE-SPIELE 


C64 


1 REM ************* <019> 

2 REM * * <051> 

3 REM * SKAT * <212> 

4 REM * * <053> 

5 REM ************* <023> 

6 REM <068> 

7 Z(1> =08 Z(2)=0!Z <3)=0:S=0 <022> 

8 POKE 53280,14:POKE 53281,14 <247> 

9 1F S>0 THEN PRINT"CBLACK)”:GOTO 21 <109> 

10 PRINT"CCLR.BLACK> XXXXXXXX C2SPACE>HflRC4S 
PACE >flflflC2SPACE , RED > .5_5.5.S-5AS.5- <2SPACE '. Z22 

<058> 

11 PRINT” CBLAaOflÄ&flMflAC2SPACE>flflfl<3SPACE 
Tflftfl C3SPACE - RED > .5AS.5.5.5.SS C2SPACF 1 flflflflZZX 

■£"; < 185> 

12 PRINT" CBLACK>flüC8SPACE>flflflC2SPACE>flflflC4 
SPACE , RED >flflC4SPACE > .5.5 C5SPACE > ZZ C 2SPACF 

>•' < 111 > 

13 PRINT" <BLACK>XX<8SPACE>flJin ffflfl C5SPACF, R 

ED )flfl C4SPACEI flfl C5SPACE >flfl C2SPACE > " < 112 > 

14 PRINT“ (BLACK> XXXXXXXX C2SPACE > flflflflflfl C6SP 

ACE, RED > .5 5.5 S.S S.S.5 C5SPACE ) ZZ C2SPACF 1» < 200> 

15 PRINT" CBLACK> XXXXXXXX C2SPACE?finnfmn(6SP 

ACE, RED> .5_S.5_5.S_S.S_5. C5SPACE >flflC2SPACE > " <201 > 

16 PR I NT " CBLACK. 6SPACE TXXC2SPACE >fWn flflßC5 
SPACE. RED i .5.5 C4SPACE >5_5(5SPACE } ZZ C?RPArF 

>" <115> 


17 


18 


19 


20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 


35 

36 

37 

38 


PRINT“ CBLACK,6SPACE> flä,C2SPACE>&BßI2SPAC 
E>flflflC4SPACE,RED}flflC4SPACE>flflC5SPACE>flfl 
C2SPACE >" 

> flflfl C3SPACE ,RED >flflC4SPACE >flfl C5SPACE >ZZC 
2SPACE>" 

PRINT" CBLACK> XXXXXXXX C2SPACE? HUB (4BPACF 
>aaaC2SPACE, RED>.55<4SPACE>flS<5SPACE:>flfl< 
2SPACE > 11 
GOSUB 162 

DIM A*(32),A(32),BS(2,32),Q(32),V(16),K 
(15),Y(12):A=RND(—TI) 

FQR T=1 TO 16:READ V(T):NEXT 

FOR T=1 TO 4:READ J(T):NEXT 

FOR T=0 TO 15:READ K(T):NEXT 

FOR T=1 TO 4:READ U(T):NEXT 

FOR T=1 TO 4:READ N(T):NEXT 

FOR T=0 TO 31:READ A:POKE 828+T,A:NEXT 

FOR T=1 TO 32:READ AS(T):NEXT 

FOR Y=1 TO 3 

FOR T=1 TO 10 

A=INT(RND(1> *32)+1 

IF A(A)>0 THEN 31 

A(A)=Y:NEXT T,Y 

IF S=0 THEN INPUT"CCLR,BLACKJWELCHER SP 
IELER TEILT AUS ";S:IF S<1 OR S>3 THEN 
S=0:GOTO 34 
DF=S 

Y=1: X=—5: IF S=2 THEN DE=3 
IF S=3 THEN DE=2 

GOSUB 329:PRINT"CDOWNTSPIELER"AA"HAT DA 
S 1. REIZEN GEWONNEN.C3DOWNJ":GOSUB 118 


< 116> 


<236> 


<237> 

< 124 > 

< 010 > 
<063> 
<063> 
< 200 > 
<109> 
<082> 
<121 > 
< 212 > 
< 000 > 
<008> 

< 115> 
<235> 

< 126> 


< 106> 
<251 > 
<091 > 
<251 > 


:OP=S <252> 

39 FG=5:IF AA=1 AND S=2 THEN NS=—1:DE=2:GO 

SUB 332:GOTO 44 <182> 

40 IF AA=1 AND S=3 THEN S=-l:DE=3:GOSUB 33 

2:GOTO 44 <049> 

41 IF AA=2 AND S=1 THEN S=0:DE=2:GOSUB 332 

:GOTO 44 <045> 

42 IF AA=3 AND S=1 THEN S=0:DE=3:GOSUB 332 

:GOTO 44 <118> 

43 IF AA=2 AND S=3 OR AA=3 AND S=2 THEN S= 

1:GOSUB 332 <111> 

44 GOSUB 117:S=OP:SW=SW(AA)+96:PRINT"CDOWN 
>SPIELER"AA"SPIELT ALLEINE !C3D0WN}" <159> 

45 IF AA=1 THEN GOSUB 118:GOTO 4B <095> 

46 PRINT"C2D0WN)"CHRS(SW(AA))" IST TRUMPF 

!C5D0WN >":GOSUB 305 <235> 

47 0L=9:V=AA:GOSUB 337:OL=0:GOSUB 118:GOTO 

74 <057> 

48 SYS 828 <149> 

49 FOR T=1 TO 32 <030> 

50 IF A(T>=0 THEN A(T)=AA <213> 

51 IF A(T)=1 THEN GOSUB 163 <034> 

52 NEXT:Y=l:X=-5 <119> 

53 GOSUB 134:INPUT"1.WELCHE KARTE SOLL WEG 

“;IS:GOSUB 202:PS=IS <096> 

54 BS(1,1)—IS <127> 

55 GOSUB 134: INPUT"2. WELCHE KARTE SOLL WEG 

" ; IS : GOSUB 202 <223> 


56 B*(1,2)=IS:Q(1)=2:A=0 

57 FOR T=1 TO 28 

58 IF A(T)>1 THEN 60 

59 IF A*(T)=P*OR AS(T)=ISTHEN A=A+1 

60 NEXT:IF A=2 THEN 62 

61 GOSUB 116:Q(1)=0:GOTO 53 

62 FOR T=1 TO 28 

63 IF A(T)>1 THEN 65 

64 IF A*(T)=PSOR AS(T)=ISTHEN A(T)=0 

65 NEXT 

66 SYS 828:GOSUB 166 

67 GOSUB 134:INPUT"WILLST DU GRAND SPIELEN 
";0*:IF 0*< >“N"AND 0*< >"J"THEN 67 

68 IF 0*="J"THEN FG=9:V=1:GOSUB 337:FG=0:S 
W(1)=0:SW=0:AS(1)=0:RW(1> =TY*24 

69 IF 0*="J"THEN 74 

70 GOSUB 134:INPUT"WELCHE FARBE IST TRUMPF 

" > o* 

71 IF 0*0"fl"AND 0*0"fl"AND 0*0"fl"AND 0*< 
>"fl"THEN 70 

72 DL=9:SW(1)=ASC(O*)—96:V=1:GOSUB 337:0L= 

0 

73 SW=ASC(0*) 

74 FOR TT=1 TO 3 

75 S=S+1:IF S=4 THEN S=1 

76 IF S=1 THEN GOSUB 169:GOTO 79 

77 IF TT=1 THEN SYS 828:Y=1:X=-5:GOSUB 166 
:GOSUB 178:GOTO 79 

78 GOSUB 268 

79 C(S)=K:K*(TT)=A*(K):L(TT)=S 

80 Z*=A*(K):D=D+6:X=D:Y=16:YY=9:GOSUB 143 

81 NEXT 

82 GOSUB 118:HZ=0:GOSUB 392:GOSUB 421 

83 IF ASC(K*(1)> =ASC(K*(2))AND ASC(K*(2)> = 
ASC(K*(3))THEN 111 

84 T=ASC(K*(1>):TT=ASC(RIGHT*(K*(1),1)) 

85 V=ASC(RIGHT*(K*(2),1)) 

86 IF T=ASC(K*(2>)AND TT>V THEN LL=L(1> 

87 IF T=ASC(K*(2)> AND TT<V THEN LL=L(2) 

88 V=ASC(RIGHT*(K*(3),1)) 

89 IF T=ASC(K*(3>)AND TT>V THEN LL=L(1> 

90 IF * =ASC(K*(3))AND TT<V THEN LL=L(3) 

91 H=0:FOR V=1 TO 3 

92 IF ASC(RIGHT*(K*(V),1))=78 THEN H=H+1:J 
=V 


93 NEXT:IF H>1 THEN 120 

94 IF H=1 THEN LL=L(J):GOTO 99 

95 H=0:FÜR V=1 TO 3 

96 IF ASC(K*(V))=SW THEN H=H+1:J=V 

97 NEXT:IF H=1 THEN LL=L(J) 

98 IF H=2 THEN 128 

99 IF LL=AA THEN T=1:G0T0 101 

100 T=2 

101 FOR V=1 TO 3 

102 Q(T)=Q(T)+1:B*(T,Q(T>)=K*(V) 

103 NEXT:D=0:IF LL=0 THEN S=LL:GOTO 105 

104 S=LL-1 

105 FOR V=1 TO 32 

106 IF A*(V)=K*(1)0R A*(V)=K*(2 > OR A*(V)=K 
*(3)THEN A(V)=0 

107 NEXT:A=0 

108 FOR V=1 TO 32:IF A(V>=1 THEN A=A+1 

109 NEXT:IF A=0 THEN 211 

110 GOTO 74 

111 TT=0 

112 FOR V=1 TO 3 

113 QQ=ASC(RIGHT*(K*(V),1)) 

114 IF QQ>TT THEN TT=ASC(RIGHT*(K*(V),1)): 
EE=V 

115 NEXT:LL=L(EE>:GOTO 99 

116 GOSUB 134:PRINT"CRVSONJFEHLERCRVDFFJ“: 
FOR KK=1 TO 2000:NEXT:RETURN 

117 PRINT"CDOWN>SPIELER"AA"HAT DAS 2. REIZ 
EN GEWONNEN.":RETURN 

118 GOSUB 134:PRINT"CBLACK,12SPACE TTASTE D 
RUECKEN !":POKE 198,0:WAIT 198,1 

119 GOSUB 134:RETURN 

120 GG=0:FOR V=1 TO 3 

121 H=ASC(K*(V)):J=ASC(RIGHT*(K*(V),1)) 

122 IF J<78 THEN 127 

123 IF H=216 THEN LL=L(V):GOTO 99 

124 IF H=193 AND GG<3 THEN GG=3:LL=L(V) 

125 IF H=211 AND GG<2 THEN GG=2:LL=L(V) 

126 IF H=218 AND GG<1 THEN GG=1:LL=L(V) 

127 NEXT:GOTO 99 

128 FOR V=1 TO 3 

129 H=ASC(K*(V)):J=ASC(RIGHT*(K*(V),1)) 


<014> 

< 172> 

< 121 > 
< 100 > 

< 151 > 
<071 > 

< 177> 

< 166> 

< 147> 
<075> 

< 112 > 

<244> 

<021 > 

<032> 

<079> 

<027> 

< 144> 
< 122 > 
<094> 
<228> 
<050> 

<027> 

< 127> 
<072> 
<053> 
<091 > 

< 155> 

< 147> 
<025> 
<030> 
<068> 
<072> 
<041 > 
<075> 
<080> 
<037> 

<076> 
<079> 
<023> 
<041 > 
<017> 
<053> 

< 102 > 
<008> 

< 109> 
<048> 
<006> 

< 144> 
<025> 
< 102 > 

<192> 

< 188> 
<211 > 
<068> 

< 144> 
<147> 
<059> 
kl04> 

< 141 > 
<059> 

<095> 

< 191 > 

<060> 

< 196> 
<037> 
<224> 

< 109> 

< 180> 
<001 > 
<013> 
< 128> 
< 103> 
<075> 
<232> 


76 
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STRATEGIE-SPIELE 


130 

IF H=SW AND GGCJ THEN GG=J:LL=L(V) 

<023> 

204 

IF Q*="A"THEN Q*="M”:GOTO 207 

<247> 

131 

IF H=SW AND GGCJ THEN GG=J:LL=L(V) 

<024> 

205 

IF Q*="B“THEN QS="N“:GOTO 207 

<185> 

132 

NEXT:H=0:J=0 

<209> 

206 

RETURN 

<008> 

133 

GOTO 99 

<007> 

207 

I*=LEFT*(I*,1)+Q*s RETURN 

<024> 

134 

POKE 211, 0:POKE 214,23sSYS 58640sPOKE 


208 

FOR T=1 TO 28 

<067> 


781,23s SYS 59903:RETURN 

<232> 

209 

IF A(T)=S AND ASC(A* < T)> =SW THEN K=T:R 


135 

DATA 18,20,22,23,24,27,30,33,36,40,44, 



ETURN 

<007> 


45,48,50,55,60,1,2,4,8,0,2,2,3,3,2 

<209> 

210 

NEXT:RETURN 

< 149> 

136 

DATA 2,4,4,2,2,3,3,2,2,5,122,115,97,12 


211 

SYS 828SPRINT SPC(15)"AUSWERTUNG" 

<203> 


0,120,97,115,122,169,147,32,210,255 

< 164> 

212 

IF CC<>5 THEN A=0 

<064 > 

137 

DATA 162,8,169,1,157,223,219,189,82,3, 


213 

IF 0(1)=0 THEN 222 

<211 > 


157,223,7,202,16,242,96,11,18,21,12 

<207 > 

214 

FOR T=1 TO Q(l> 

<206> 

138 

DATA 12,19,15,6,20,96 

< 118> 

215 

B*=RIGHT*(B*(1,T),1) 

<095> 

139 

DATA-Z7","28","Z.9","ZD","2K","ZL","iM" 

<216> 

216 

IF B*=“D"THEN A=A+3 

< 154> 

140 

DATA"jj7" , "SS" , "S9" , "SD" , "SK" , "SL" ,-"SM" 

<093> 

217 

IF B*="K"THEN A=A+4 

<095> 

141 

DATA"fl7","SB","S9","SD","SK","SL","SM" 

<105> 

218 

IF B*="L"THEN A=A+10 

<056> 

142 

DATA-Ä7" , "*8" , "Ä9“ , "ÄD" , ",«K" , "*L" , "ÄM" 


219 

IF B*="M"THEN A=A+U 

<057> 


,"ZN","SN","3N","XN" 

< 194> 

220 

IF B*="N"THEN A=A+2 

<099> 

143 

F*=RIGHT*(Z*,1> 

<237> 

221 

NEXT 

<231 > 

144 

Z*=LEFT*(ZS,1> 

<030> 

222 

GOSUB 255 

< 158> 

145 

POKE 211,0s POKE 214,Y—1:SYS 58640 

< 191 > 

223 

PRINT"{3D0WN JSPIELER"AA“HAT"A"PUNKTE ! 


146 

IF F*="L"THEN F*="Z“ 

<249> 



<002> 

147 

IF F*="M"THEN F*="A" 

<052> 

224 

PRINT"{3D0WNJSPIELER";:N=0 

< 180> 

148 

IF F*="N"THEN F*="B" 

<246> 

225 

FOR T=1 TO 3 

< 156> 

149 

IF Z*=”£"OR Z*="S"THEN Z*="<REDJ"+Z*+" 


226 

IF T=AA THEN 229 

< 162> 


{BLACK >"s F*="{RED>"+F*+ »{BLACK >" 

<076> 

227 

PRINT T;:N=N+1 

<056> 

150 

D*='"':IF X<>35 THEN D*=CHR*(13> 

<002> 

228 

IF N=1 THEN PRINT"UND"; 

<058> 

151 

PRINT SPC (X) " DLs 

<048> 

229 

NEXT:PRINT"HABEN"120-A"PUNKTE!" 

< 120> 

152 

PRINT SPC(X) "c:"F*" "FS"^"D*f 

< 172> 

230 

B*="{4SPACE}":A*(0)="{RED>-":A*(1)="CB 


153 

PRINT SPC(X)" = {3SPACEJ^"D*; 

<090 > 


LACK>":A*(2)="{BLACKJ+": 

< 121 > 

154 

PRINT SPC(X)"- "Z*“ = "D*; 

<075> 

231 

IF A<30 THEN RW(AA)=RW(AA)+AS(AA) 

<229> 

155 

PRINT SPC<X)“ = {3SPACE> = “D*; 

<092> 

232 

IF A<61 THEN RW(AA)=(0-RW(AA))*2 

<069> 

156 

PRINT SPC(X)"^"F*" "F*" = "D*: 

< 176> 

233 

F=0-RW(AA):I<4)=RW(AA) 

<085 > 

157 

PRINT SPC (X) •• 

<147> 

234 

FOR T=1 TO 3 

<165> 

158 

IF YY<>9 THEN RETURN 

<109> 

235 

IF T=AA THEN Z(AA)=Z(AA)+RW(AA):GOTO 2 


159 

IF S=AA THEN PRINT"CRVSÜNJ";:HZ=TT 

<247> 


37 

<014> 

160 

YY=0: PRINT SPC(X)"S Si"S" {HOME>" 

<255> 

236 

Z(T)=Z(T)+F 

<006> 

161 

RETURN 

<219> 

237 

NEXT 

<247> 

162 

GOSUB 134:PRINT SPC(30)"CDOWN,WHITEJKR 


238 

I (1>=Z (1) : I (2)=Z(2) : I (3)=Z(3) 

<070> 


ULLSOFT"::RETURN 

<015> 

239 

H=4:C=4:GOSUB 264 

< 176> 

163 

Z*=A*(T> 

<067> 

240 

I(1>=Z(1)-Z(3):K(1)=I(1) 

<19S> 

164 

X=X+5:IF X=40 THEN Y=Y+7:X=0 


241T,2)=Z(2)-Z<n:K(2>=I (2) 

<098> 

165 

GOSUB 143:RETURN <226? 

242 I '3>=Z(3)-Z(1):K(3)=I(3) 

< 126> 

166 

FOR T=1 TO 32 

<147> 

243 

H=3:C=6:GOSUB 264 

<166> 

167 

IF A(T)=1 THEN GOSUB 163 

< 150> 

244 

1(1) =Z ( 1) — Z (2) :K ( 1) =K (1 > +1 (1) 

<240> 

168 

NEXT:Y=1:X=-5:RETURN 

<095> 

245 

I (2)=Z (2) —Z (3) : K (2) =K (2) +1 (2) 

<108> 

169 

IF TT=1 THEN SYS 828:Y=1:X=-5:GOSUB 16 


246 

I(3)=Z(3)-Z(2):K(3)=K(3)+I(3) 

< 104> 


6 

<036> 

247 

C=7:GOSUB 264 

<109> 

170 

GOSUB 134:INPUT"WELCHE KARTE SOLL GESE 


248 

I (1>=K(1) : I (2)=K(2) : I (3>=K(3) 

<050> 


TZT WERDEN ";I*:GOSUB 202 

< 161 > 

249 

C=9:GOSUB 264 

<143> 

171 

A=0:FOR T=1 TO 32 

<123> 

250 

S=DF 

<232> 

172 

IF AITIOl THEN 174 

<0705 

251 

S=S+1:IF S=4 THEN S=1 

<148> 

173 

IF I*=A*(T)THEN A=9 

<136> 

252 

GOSUB 118 

<213> 

174 

NEXTsIF A=0 THEN GOSUB 116:GOTO 170 

< 119> 

253 

PRINT"{CLR,2D0WN,LIG.GREEN,LIG.BLUE > 7 Z 


175 

FOR W=1 TO 32:IF A*(W)=I*THEN K=W:GOTO 



( 1 ) ="Z ( 1 ) "{LEFT>:Z(2)="Z(2)"{LEFT>:Z(3 



177 

< 157> 


) = "Z(3) " CLEFTJ:S="S 

<202> 

176 

NEXT W 

< 116> 

254 

PRINT"RUN{HOMEJ " ; : POKE 631,13:POKE 632 


177 

RETURN 

<235> 


,13:POKE 198,2:END 

< 174> 

178 

K=0:CC=0:RR=100:IF AA< >S THEN GOSUB 41 


255 

PRINT"{DOWNJSPIELER:ÜC2SPACEJ1{2SPACEJ 



1 : IF RRC100 THEN RETURN 

<045> 


= {2SPACEJ2{2SPACE >- {2SPACE>3{2SPACEJ=5 


179 

IF AAOS THEN 191 

<000> 


UMME£” 

<051 > 

180 

FOR T=1 TO 32 

< 161 > 

256 

PRINT" {8SPACEJ 


181 

IF A ( T )< >S THEN 190 

<051 > 


U" 

<237> 

182 

IF ASC(RIGHT*(A*(T),1))=78 THEN K=T:RE 


257 

PRINT"{8SPACEJJK5SPACE>£{5SPACEJ£{5SPA 



TURN 

<090 > 


CEJSC5SPACEJ2" 

<021 > 

183 

FÜR J9=l TO 4 

<202> 

258 

PRINT" {8SPACE J±aa&iut 


184 

FOR AI=1 TO 3:IF S=AI THEN 186 

< 176> 


y 

<143> 

185 

IF Y(AI*4-4+J9)=l AND ASC(A*(T> > -96=U ( 


259 

PRINT"{8SPACEJ-{5SPACE } -{5SPACE > -{5SPA 



J91THEN 190 

<208> 


CEJ = " 

<155> 

186 

NEXT AI,J9 

<021 > 

260 

PRINT"(8SPACE } = {5SPACE J - {5SPACE > = {5SPA 


187 

J=ASC(A*(T> ) :H=ASC(RIGHT*(A*(T),1> ) 

< 148> 


CE J— " 

<156> 

188 

IF H=77 AND JOSW THEN K=T : RETURN 

<136> 

261 

PRINT" (8SPACE }=-=-=-=“ 

<243> 

189 

IF JOSW AND RR>H THEN RR=Hs K=T 

< 196> 

262 

PRINT " {8SPACE J = C5SPACE > = {5SPACE >={5SPA 


190 

NEXT T:IF RRC100 THEN RETURN' 

<220> 


CEJ = " 

<15B> 

191 

RR=100 

<015> 

263 

RETURN 

<067> 

192 

FOR T=1 TO 28 

<051 > 

264 

FOR A=1 TO H 

< 184> 

193 

IF A ( T )< >S THEN 196 

<255> 

265 

A*=STR*(I(A) ): B=LEN(A*):A*=RIGHT*(A*,B 


194 

J=ASC(A*(T) ) :H=ASC(RIGHT*(A*(T),1) ) 

<155> 


-1):B=B-1 

<076> 

195 

IF JOSW AND RR>H THEN RR=H:K=T 

<202> 

266 

C*=A*(SGN(I(A))+1> +LEFT*(B*,4—B)+A* 

<000> 

196 

NEXTsIF RRC100 THEN J=0:H=0:RETURN 

<229? 

267 

POKE 214,C:P0KE 211,9+(A-l > *6:SYS 5864 


197 

RR=0 

<209> 


0:PRINT C*s NEXT : RETURN 

<031 > 

198 

FOR T=1 TO 32 

< 179> 

268 

V=ASC(K* ( 1 )): H2=ASC(RIGHT*(K* ( 1 ) ,1) ) :K 


199 

H=ASC(RIGHT*<A#(T),1)) 

<095> 


=0:L=0:IF H2=78 THEN V=SW 

<033> 

200 

IF A(T)=S AND H>RR THEN RR=H:K=T 

< 0 as> 

269 

FOR T=1 TO 28 

<130> 

201 

NEXT:H=0:RETURN 

<053> 

270 

IF A ( T > < >S THEN 274 

<246> 

202 

Q*=RIGHT* ( I*,1 > 

<203> 

Listing. »Skat« für den C64. Bitte mit dem Checksummer 

203 

IF Q*="Z"THEN Q*=“L" : GOTO 207 

<067> 

eingeben. 
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271 

J=ASC(AS(T>):Q2=ASC(RIGHT*(AS(T>, 1) > 

< 123> 

335 

IF FG=5 THEN FG=0:GOTO 361 

< 166> 

272 

IF V=J THEN L=9:IF Q2>H2 THEN K=T:GOSU 


336 

FOR V=1 TO 3 

<029> 


B 432:IF CC=9 THEN RETURN 

<151> 

337 

FOR J=1 TO 8:C(J)=0:NEXT:H=0 

<179> 

273 

IF CC=8 THEN 387 

<069> 

338 

FOR T=1 TO 32 

<065> 

274 

NEXT:Q3=0:Q4=0 

<114> 

339 

IF A(T)< >V THEN 346 

<089> 

275 

IF HZ>0 AND TT=3 THEN Q3=ASC(RIGHTS(KS 


340 

IF ASC(RIGHTS(AS(T),l))=78 THEN H=4 

<023> 


(HZ),1)>:Q4=ASC(RIGHT*(KS(3-HZ>,1)) 

<001> 

341 

A=ASC(AS(T)>-96 

<239> 

27 6 

IF L=9 THEN 295 

< 157> 

342 

IF A=120 THEN C(H+l>=C(H+l>+1 

<138> 

277 

B=100 

<218> 

343 

IF A=97 THEN C(H+2)=C(H+2)+1 

<071 > 

278 

FOR T=32 TO 1 STEP-1 

<234> 

344 

IF A=115 THEN C(H+3)=C(H+3)+1 

<046> 

279 

IF A(T)< >S THEN 282 

<207> 

345 

IF A=122 THEN C(H+4)=C(H+4)+1 

<030> 

280 

J=ASC(AS(1>):Q=ASC(RIGHTS(AS(T>,1)) 

<206> 

346 

H=0:NEXT 

<252> 

281 

IF GKB THEN B=Q:K=T 

< 171 > 

347 

FOR J=1 TO 4 

<073> 

282 

NEXT 

<038> 

348 

IF C(J)>H THEN H=C(J >:A=J 

<023> 

283 

IF TT=3 THEN IF V<>SW AND Q4>Q3 AND V= 


349 

NEXT:IF OL=9 THEN 351 

<087> 


ASC(KS(2))AND S< >AA THEN 384 

<089> 

350 

SW(V)=N(A>:IF V=1 THEN SW(1>=120 

< 107> 

284 

IF TT=3 THEN IF VOSW AND HZ=1 AND ASC 


351 

A=0:FOR J=5 TO 8 

<057> 


(KS(2))=SW AND SOAA THEN 384 

<165> 

352 

IF C(J)=1 THEN A=A+J(J-4> 

<251 > 

285 

IF TT=3 THEN IF HZ=1 AND ASC(RIGHT*(KS 


353 

NEXT:A=K(A):IF V=1 AND A=0 THEN A=5 

< 157> 


(2),1))=78 AND VOSW AND SOAA THEN 38 


354 

TY=A:IF FG-9 THEN RETURN 

<215> 


4 

<050> 

355 

IF SW(V)=120 THEN RW(V)=12*A:AS(V)=12 

< 128> 

286 

IF TT=3 THEN OB=ASC(RIGHTS(KS(2),1>) 

< 158> 

356 

IF SW(V)=97 THEN RW(V)=11*A:AS(V)=11 

<047> 

287 

IF TT=3 THEN IF V=ASC(KS(2))AND VOSW 


357 

IF SW(V)—115 THEN RW(V)=10*A:AS(V)=10 

< 133> 


AND 08>75 AND S=AA THEN GOSUB 208 

< 166> 

358 

IF SW(V)=122 THEN RW(V)=9*A:AS(V)=9 

<223> 

288 

IF H2<75 AND VOSW THEN RETURN 

<056> 

359 

IF 0L=9 THEN RETURN 

<218> 

289 

IF V=0 AND H2<78 THEN RETURN 

< 196> 

360 

NEXT 

< 116> 

290 

J7=K: IF VOSW THEN GOSUB 208: IF J70K 


361 

IF AB=1 THEN 374 

< 173> 


THEN RETURN 

<245> 

362 

IF AB=2 THEN 365 

<240> 

291 

FOR T=28 TO 32: IF A(T)OS THEN 293 

<241 > 

363 

IF RW(2)>RW(3)THEN AA=2:RETURN 

< 194> 

292 

IF ASC(RIGHTS(AS(T),1))=78 THEN K=T:RE 


364 

AA=3:RETURN 

<227> 


TURN 

<202> 

365 

IF RW(DE)=0 THEN PRINT"ICH REIZE NICH 


293 

NEXT:IF TT=3 THEN IF Q4>Q3 AND V=ASC(K 



!«:AA=1:RETURN 

< Ql AS > 


S (2) ) AND SOAA THEN 384 

< 113> 

366 

FOR T=1 TO 16 

<096> 

294 

RETURN 

<09B> 

367 

IF V(T)>RW(DE)THEN 373 

<217> 

295 

IF TT=3 THEN IF Q4>Q3 AND V=ASC(KS(2)> 


368 

PRINT"IDOWNJHAST DU"V(T>“ PUNKTE " 

< 122> 


AND SOAA THEN 387 

<069> 

369 

INPUT" (J/N) ";AS: IF ASO"J"AND ASO“N"T 


296 

IF TT=3 THEN IF VOSW AND HZ=1 AND ASC 



HEN PRINT"<UP>"s:GOTO 369 

< 115> 


(KS(2))=SW AND SOAA THEN 387 

<180> 

370 

IF AS="N"THEN AA=DE:RETURN 

<034> 

297 

IF TT=3 THEN IF HZ=1 AND ASC(RIGHTS(KS 


371 

IF AS="J"AND V(T> >RW(1)THEN PRINT“<D0W 



(2) 5 1) ) =78 AND VOSW AND SOAA THEN 38 



NJSO VIEL HAST DU NICHT !":AA=DE:RETUR 



7 

<158> 


N 

<067> 

298 

H=100:FOR T=1 TO 28 

(<062> 

’X’ir? mp * i • - RF"ri irm 

<078> 

299 

IF A(T)OS THEN 302 

< 107 > 

373 

PRINT"CDOWNIICH HABE NICHT MEHR !":AA= 

300 

Q=ASC(RIGHTS(AS(T>,1)) 

<234> 


1:RETURN 

<215> 

301 

IF V=ASC(AS(T>)AND 0<H THEN H=Q:K=T 

< 166> 

374 

PRINT"{DOWNJFANGE AN ZU REIZEN (18-60) 


302 

NEXT:IF V=SW AND H2>74 AND H2<78 THEN 



'* 

<039> 


291 

<050> 

375 

PRINT"{DOWNIWILLST DU NICHT MEHR WEITE 


303 

IF V=SW AND ASC(RIGHTS(AS(K),1)>>68 TH 



R REIZEN,DANN GIB 0 EIN.":H=0 

<220> 


EN 291 

< 142> 

376 

FOR T=1 TO 16 

< 106> 

304 

RETURN 

<108> 

377 

A=H:INPUT"ZAHL ";H:IF H=0 THEN PRINT"D 


305 

FOR T=1 TO 32:IF A(T>=0 THEN A(T)=AA 

<055> 


ANN NICHT !":AA=DE:RETURN 

< 177> 

306 

NEXT 

<062> 

378 

FOR V=1 TO 16:IF V(V)=H THEN 380 

<230> 

307 

FOR T=1 TO 4:C(T)=0:NEXT 

<006> 

379 

NEXT V:PRINT"CRVSONJFEHLER !<RVOFFJ":H 


308 

FOR T=1 TO 28 

<169> 


=A:GOTO 377 

<105> 

309 

IF A(T)< >AA THEN 315 

<185> 

380 

IF H>RW(1)THEN PRINT"£DOWN>SO VIEL HAS 


310 

A=ASC (AS (T ) ) —96 

<208> 


T DU NICHT !":AA=DE:RETURN 

< 152> 

311 

IF A=122 THEN C(1)=C(1>+1 

<063> 

381 

IF H<=A THEN PRINT"CRVSONJFEHLER !£RVO 


312 

IF A=115 THEN C(2)=C(2>+1 

<138> 


FF>":GOTO 377 

< 109> 

313 

IF A=97 THEN C(3)=C(3)+1 

< 133> 

382 

IF H>RW(DE)THEN PRINT"<DOWN>SO VIEL HA 


314 

IF A=120 THEN C(4)=C(4)+1 

<092> 


BE ICH NICHT AA=1:RETURN 

<044> 

315 

NEXT:A=0 

< 142 > 

383 

NEXT T:AA=1:RETURN 

< 128> 

316 

FOR T=1 TO 4 

< 122> 

384 

B=0: FOR T=1 TO 28: IF AITIOS THEN 386 

<051 > 

317 

IF C(T> <3 AND C(T)>0 THEN C(T)=C(T>-1: 


385 

IF ASC(RIGHTS(AS(T),1))>B THEN K=T:B=A 



GOSUB 325:IF A<2 THEN 317 

<088> 


SC(RIGHTS(AS(T),1)) 

<059> 

318 

IF A=2 THEN RETURN 

<025> 

386 

NEXT:RETURN 

<071 > 

319 

NEXT 

<075> 

387 

FOR T=28 TO 1 STEP-1 

< 185> 

320 

FOR T=1 TO 28:IF A(T)< >AA OR ASC(AS(T) 


388 

IF AITIOS THEN 390 

<020> 


)—96=SW(AA)THEN 324 

< 164> 

389 

IF V=ASC(AS(T))THEN K=T:RETURN 

<213> 

321 

H=ASC(RIGHTS(AS(T),1)) 

<219> 

390 

NEXT:IF V=SW AND H2>74 AND H2<78 THEN 


322 

IF H=55 OR H=56 OR H=57 THEN A=A+1:Q(1 



291 

< 13B> 


>=Q(1)+1:BS(1,Q(1))=AS(T):A(T>=0 

<255> 

391 

RETURN 

< 195> 

323 

IF A=2 THEN RETURN 

<030> 

392 

A=0:J1=ASC(KS(1)):J2=ASC(KS(2)):J3=ASC 


324 

NEXT:RETURN 

<009 > 


(KS(3)):I1=ASC(RIGHTS(KS(1),1)> 

< 139> 

325 

FOR KK=1 TO 28: IF A(KK)OAA THEN 328 

<074> 

393 

12=ASC(RIGHTS(KS(2),1)):I3=ASC(RIGHTS( 


326 

IF ASC(AStKK)> —96=U(T)AND ASC(AS(KK))- 



KS(3),1)):H=0 

<052> 


96< >SW(AA)THEN K0=9 

<211 > 

394 

IF SW=0 AND 11=78 AND I2<78 THEN RR(L( 


327 

IF K0=9 THEN KO=0:A=A+1:Q(1)=Q(1)+1:BS 



2)>=1:RETURN 

< 143> 


(1,Q(1))=AS(KK):A(KK)=0:RETURN 

< 191 > 

395 

IF SW=0 AND 11=78 AND I3<78 THEN RR(L( 


328 

NEXT:RETURN 

<013> 


3)>=1:RETURN 

<018> 

329 

Y=l:X=-5:GOSUB 166 

<221 > 

396 

IF J1=SWS OR 11=78 THEN 402 

< 166> 

330 

PRINT"<3D0WN,SPACEJRECHNE AUS,WIE HOCH 


397 

IF J10J2 THEN A=2: GOSUB 405 

< 197> 


DU REIZEN KANNST !" 

<013> 

398 

IF J10J3 THEN A=3: GOSUB 405 

<215> 

331 

GOSUB 118 

<038> 

399 

IF 12=78 THEN A=2:GOSUB 405 

<157> 

332 

AB=S+2:IF AB=4 THEN AB=1 

<202> 

400 

IF 13=78 THEN A=3:GOSUB 405 

< 182> 

333 

IF AB=5 THEN AB=2 

<065> 

401 

RETURN 

<205> 

334 

PRINT"<CLR>"SPC(17>"REIZEN" 

<111> 

402 

IF J20SW AND 12078 THEN A=2: GOSUB 40 



78 
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8 

<189> 

423 

IF RR(1)=1 AND ASC(RIGHT*(A*, 1) ) =78 TH 


403 

IF J30SW AND 13078 THEN A=3:G0SUB 40 



EN 429 

<21B> 


8 

<222> 

424 

FOR T=1 TO 4 

<230> 

404 

RETURN 

<208> 

425 

IF Y(T)=1 AND ASC(A*)-96=U(T > AND ASC(R 


405 

H=L(A) :FOR T=1 TO 4 

<209> 


lGHT*(A*,1>)< 78 THEN 428 

<203> 

406 

IF U(T)=Jl-96 THEN Y(4*H-4+T)=l 

<099> 

426 

IF Y(T> =1 AND U(T)=SW-96 AND ASC(RIGHT 


407 

NEXT:RETURN 

<092> 


*(A*,1)>=78 THEN 428 

< 193> 

408 

H=L(A) :FOR T=1 TO 4 

<212> 

427 

NEXT:RETURN 

< 112> 

409 

IF U<T>=SW—96 THEN Y<4*H-4+T)=l 

< 187> 

428 

GOSUB 134:PRINT"<9UP,RVS0N1DU HAST GEM 


410 

NEXT:RETURN 

<095> 


OGELT !CHOMEJ":GOTO 430 

<212> 

411 

FOR T=1 TO 32 

< 138> 

429 

GOSUB 134:PRINT"I9UP,RVSONJDU HATTEST 


412 

IF A <T) OS THEN 420 

< 196> 


JA DOCH NOCH EINEN BUBEN !{HOME}" 

<021 > 

413 

IF ASC(RIGHT*(A*(T),1>>=78 THEN RR=0:K 


430 

GOSUB 118:CC=5s Q(1> =0:IF AA=1 THEN A=0 



=T:RETURN 

<092> 


:GOTO 211 

< 114> 

414 

FOR J9=l TO 4 

< 179> 

431 

A=120:GOTO 211 

<007> 

415 

IF Y(AA*4-4+J9>=l AND ASC(A*(T>>-96=U( 


432 

CC=0:IF TT=2 THEN CC=9:RETURN 

< 166> 


J9> THEN 420 

<005> 

433 

A1=ASC(RIGHT*(K*(1),1>):A2=ASC(RIGHT*( 


416 

NEXT J9 

<145> 


K*(2>,1)):A3=ASC(RIGHT*(A*(K),1)) 

<228> 

417 

J=ASC(A*(T>>:H=ASC(RIGHT*(A*(T>,1)) 

<124> 

434 

IF ASC(K*(1)> =ASC(K*(2))AND A3>A2 AND 


418 

IF H=77 AND JOSW THEN K=T: RR=0: RETURN 

<023> 


A3>A1 AND A2<78 AND VOSW THEN CC=8:RE 


419 

IF JOSW AND RR>H THEN RR=H:K=T 

<172> 


TURN 

<098> 

420 

NEXT T:RETURN 

< 198> 

435 

RETURN 

<239> 

421 

FOR T=1 TO 3sIF L(T)=1 THEN CC=T 

<231 > 




422 

NEXT:A*=K*(CC> 

< 153> 

Listing. »Skat« (Schluß) 



Solitaire 

Dieses Spiel gehört zu den unvergänglichen 
Brettspielklassikem. Hier finden Sie dieses unge¬ 
mein fesselnde Denkspiel für Ihren C64. 

eder hat schon einmal Solitaire gespielt oder ist viel¬ 
leicht unter anderem Namen damit in Kontakt gekom¬ 
men. Das Spiel wird mit 104 Steinen oder Figuren ge¬ 
spielt, die kreuzförmig auf einem Brett stehen oder bei der 
Reiseversion in einem Lochraster stecken (Bild). Ziel des 
Spiels ist es, möglichst viele Steine vom Brett zu entfernen. 
Man darf mit einem Stein nur einen Zug ausführen, wenn 
ein anderer Stein übersprungen werden kann und das dar¬ 
auffolgende Feld, also das Zielfeld, frei ist. Es darf in hori¬ 
zontaler und vertikaler Richtung gesprungen werden. 
Wenn man bei dem Spiel geschickt verfährt, kann man alle 
Steine bis auf den letzten abräumen. 

Das Programm ist komplett in Basic geschrieben 
(Listing). Es wird normal mit LOAD geladen und mit RUN 
gestartet. Die Steuerung erfolgt über einen Joystick im 
Control-Port 2. Nach dem Start erscheint zuerst ein Titel 
und dann das Spielbrett mit dem blinkenden Cursor in der 
Mitte. Dieser Cursor läßt sich nun mit dem Joystick über das 
Spielfeld bewegen. Um mit einem Stein über einen ande¬ 
ren zu springen, muß man zunächst den Cursor auf diesen 
Stein setzen. Dann hält man den Feuerknopf am Joystick 
gedrückt und bewegt den Joystick in die Richtung, in die 
der Stein ziehen soll. Nicht erlaubte Züge werden vom Pro¬ 
gramm automatisch ignoriert. Rechts oben am Bildschirm 



Bild. »Solitaire« ist einfach darzustellen, jedoch schwierig 
zu spielen und fesselt stundenlang an den Bildschirm. 


wird ständig die Anzahl der noch übrig gebliebenen Steine 
angezeigt. Durch Druck auf die Leertaste kann man ein 
neues Spiel beginnen. Die Farbgebung des Programms 
wurde auf einen Schwarzweiß-Bildschirm abgestimmt. Die 
Farbumschaltung erfolgt jedoch über Variable, so daß die 
Farben durch Änderung der Steuerzeichen in den Zeilen 
1130 bis 1160 und des Wertes HF in Zeile 1120 leicht an 
jeden Geschmack angepaßt werden können. 

(Dirk Eumann/jk) 



1000 REM ************************* <116> 
1010 REM * * <041> 
1020 REM * SOLITAIRE * <140> 
1030 REM * * <063> 
1040 REM * VON DIRK EUMANN * <005> 
1050 REM * ITZEHOER STR. 7C * <099> 
1060 REM * 2300 KIEL - 1 * <062> 
1070 REM * * <103> 
1080 REM ************************* <198> 
1090 : <050> 

1100 REM-FARBEN- <186> 

1110 : <070> 
1120 HF =11 :REM HINTERGRUND/RAHMEN <102> 
1130 F0$= *CHHITE)"= REM CURSOR <008> 
1140 F1$ ="CBLACK5"•REM LEERE FELDER <175> 
1150 F2$="CGREY 2)":REM GITTER <209> 


1160 F3$="CGREY 3>":REM BESETZTE FELDER <121> 
1170 : <130> 

1180 REM — SPIELFELDELEMENTE- <116> 

1190 : <150> 

1200 X* =F3$+ "Ä"+F2S+ <099> 

1210 X1$=X$+X$+X$+X$+F3$+"S" <222> 

1220 X2$=F2$+"c o oCSHIFT-SPACEXiXSHIFT-SP 

ACE>ü" <128> 

1230 X3$=X$+XS+X$+X$+X$+X$+X$+X$+X1$ <049> 

1240 X4$=F2$ + "^, o ^.CSHIFT-SPACE>cCSHIFT-SP 
ACE>c.CSHIFT-SPACE>cCSHIFT-SPACEX-.CSHI 
FT-SPACE>oCSHIFT-SPACE>cCSHIFT-SPACE> 
wCSHIFT-SPACE>oCSHIFT-SPACE>c <046> 


Listing. Das Basic-Listing zu »Solitaire«. Bitte mit dem 
Checksummer eingeben. 
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1250 

X5$=LEFT$(X3$.24 > +F1$+ "ii" +MID$ < X3$,27 


1970 

PRINT Fl$“i4“ i :POKE 214.CZ-2 :POKE 211, 



) 

<122> 


CS:SYS 58640:PRINT“H“; 

<085> 

1260 


<220> 

1980 

POKE 214,CZ-4:POKE 211,CS:SYS 58640--P 


1270 

REM - HEITERE VARIABLE - 

<237> 


RINT F3$“SCLEFT}"F0$;:RETURN 

<109> 

1280 


<242> 

1990 


<188> 

1290 

BS=1024 :REM VIDEO-RAM 

<025> 

2000 

REM-UNTEN- 

<178> 

1300 

FS=55296:REM FARB-RAM 

<146> 

2010 


<208> 

1310 

JS=56320:REM JOYSTICK PORT#2 

<228> 

2020 

ZI=PEEK< BS+40*(CZ+2)+CS) 

<070> 

1320 

R =104 :REM RESTLICHE STEINE 

<105> 

2030 

Z2=PEEK(BS+40*(CZ+4)+CS):GOSUB 2330 

<210> 

1330 

WA=600 :REM DAUER HARTESCHLEIFE 

<183> 

2040 

IF F THEN F=0:GOTO 2350 

<115> 

1340 


<046> 

2050 

FOR 1=0 TO 2:X=40*(CZ+2*I)+CS:POKE BS 


1350 

POKE 53280,HF=POKE 53281,HF 

<144> 


+X,86:POKE FS+X,ABS(I>1):NEXT 

<211> 

1360 

PRINT CHRS(9 > CHR$(142)CHR$ < 8)CHR$ <147 


2060 

FOR 1=1 TO WA‘-NEXT 

<080> 


); 

<096> 

2070 

PRINT F1$"H"; '-POKE 214,CZ+2 : POKE 211, 


1370 

GOSUB 2410 = REM SPIELFELD 

<097> 


CS:SYS 58640:PRINT“ü“j 

<183> 

1380 


<086> 

2080 

POKE 214,CZ+4:POKE 211,CS:SYS 58640:P 


1390 

REM- 

<152> 


RINT F3S"3CLEFT>"F0S;:RETURN 

<208> 

1400 

i a i a 

REM STEUERUNG 

<173> 

2090 
o i an 


<034> 


ftßn - — 

<1 l c> 

tZ lYlYJ 

KC,n - KCA^nlö - - - - 

<016> 

1420 

FOR 1=1 TO 100:NEXT 

<132> 

2110 


<054> 

1430 

POKE 204,0:GET A$ 

<222> 

2120 

Z1=PEEK(BS+40*CZ+(CS+2 >) 

<240> 

1440 

J=PEEK(JS):IF(J AND 31>=31 AND A$="“T 


2130 

Z2=PEEK(BS+40*CZ+(CS+4)):GOSUB 2330 

<152> 


HEN 1430 

<134> 

214.0 

IF F THEN F=0:GOTO 2350 

<217> 

1450 

POKE 205,2 

< 112 > 

2150 

FOR 1 = 0 TO 2:X=40*CZ+(CS+2*I>:POKE BS 


1460 

IF PEEK(207)THEN 1460 

<183> 


+X.S6:POKE FS+X,ABS(I>1):NEXT 

<223> 

1470 

POKE 204,1:CZ=PEEK(214):CS=PEEK(211) 

<110> 

2160 

FOR 1=1 TO WA:NEXT 

<180> 

1480 

IF A$= H "THEN F=1:POKE 53281,15'-GOTO 


2170 

PRINT F1$"M"; :POKE 214.CZ--POKE 211,CS 



1360 

<254> 


+2:SYS 58640:PRINT"ü“; 

<106> 

1490 

IF(J AND 16)=0 THEN GOSUB 1830:GOTO 1 


2180 

POKE 214.CZ-.POKE 211,CS+4:SYS 58640:P 



420 

<099> 


RINT F3S"SCLEFT)''F0$; RETURN 

<093> 

1500 

IF< J AND 1) =0 THEN GOSUB 1580:GOTO l 


2190 


<134> 


420 

<164> 

2200 

REM-LINKS- 

<209> 

1510 

IF(J AND 2) =0 THEN GOSUB 1640:GOTO l 


2210 

: 

<154> 


420 

<013> 

2220 

Zl=PEEK(BS+40*CZ+(CS-2> > 

<092> 

1520 

IF(J AND 4) =0 THEN GOSUB 1760:GOTO 1 


2230 

Z2=PEEK(BS+40*CZ+(CS-4>):GOSUB 2330 

<004> 


420 

<056> 

2240 

IF F THEN F=0:GOTO 2350 

<061> 

1530 

IF(J AND 8) =0 THEN GOSUB 1700:GOTO 1 


2250 

FOR 1=0 TO 2:X=40*CZ+(CS-2*I):POKE BS 



420 

<194> 


+X,86:POKE FS+X,ABS(I>1):NEXT 

<083> 

1540 

GOTO 1420 

<084> 

2260 

FOR 1=1 TO WA:NEXT 

<024> 

1550 


<002> 

2270 

PRINT Fl$“ti“;:POKE 214,CZ:POKE 211,CS 


1560 

REM-OBEN- 

<238> 


-2:SYS 58640:PRINT"ü”: 

<210> 

1570 

CA 


228" 

POKE 214,CZ=POKE 211,CS-4:SYS 58640:P 


1580 

IF CZ<=0 THEN RETURN 


.11 

RINT F3$"aCLEFT>''F0$:--RETURN 

<195> 

1590 

IF CZ<=8 THEN IF CS<15 OR CS>23 THEN 


2290 


<234> 


RETURN 

<226> 

2300 

REM- 

<044> 

1600 

PRINT F0$“C2UP}"i:RETURN 

<053> 

2310 

REM EINGABEFEHLER/REST 

<171> 

1610 


<062> 

2320 

REM-••- 

<066> 

1620 

REM-UNTEN--- 

<052> 

2330 

IF Zl<>81 OR Z2<>87 THEN F=1:RETURN 

<221> 

1630 


<082> 

2340 

R=R-1:PRINT"CHOME}“ F2$;TAB(32)R"CLEFT 


1640 

IF CZ>=24 THEN RETURN 

<025> 


,SPACE}" 

<156> 

1650 

IF CZ>=16 THEN IF CS<15 OR CS>23 THEN 


2350 

POKE 214,CZ = POKE 211,CS = SYS 58640 

<110> 


RETURN 

<012> 

2360 

RETURN 

<132> 

1660 

PRINT F0$"C2DOWN}"i:RETURN 

<177> 

2370 


<060> 

1670 


<122> 

2380 

REM- 

<081> 

1680 

REM — RECHTS--- 

<104> 

2390 

REM SPIELFELD AUSGEBEN 

<141> 

1690 


<142> 

2400 

REM- 

<101> 

1700 

IF CS>=31 THEN RETURN 

<098> 

2410 

PRINT TAB < 15 > XI $F2$ “ «SPACE}REST:"; R 

<254> 

1710 

IF CS>=23 THEN IF CZ<8 OR CZ>16 THEN 


2420 

PRINT TAB(15)X2$ 

<178> 


RETURN 

<189> 

2430 

PRINT TAB<15)X1$:PRINT TAB(15)X2$ 

<252> 

1720 

PRINT F0$"C2RIGHT)"i:RETURN 

<255> 

2440 

PRINT TAB<15>X1$:PRINT TAB(15)X2$ 

<006> 

1730 


<182> 

2450 

PRINT TAB<15)X1$:PRINT TAB(15)X2$ 

<016> 

1740 

REM — LINKS- 

<001> 

2460 

PRINT TAB< 7)X3$:PRINT TAB( 7)X4$ 

<127> 

1750 


<202> 

2470 

PRINT TAB( 7 >X3$:PRINT TAB< 7)X4$ 

<137> 

1760 

IF CS<=7 THEN RETURN 

<234> 

2480 

PRINT TAB( 7 >X5$ : PRINT TAB ( 7)X4$ 

<148> 

1770 

IF CS<=15 THEN IF CZ<8 OR CZ>16 THEN 


2490 

PRINT TAB< 7)X3S:PRINT TAB( 7)X4$ 

<157> 


RETURN 

<186> 

2500 

PRINT TAB( 7)X3$:PRINT TAB(15)X2$ 

<100> 

1780 

PRINT F0$"C 2 LEFT}";: RETURN 

<251> 

2510 

PRINT TAB<15>Xl$ = PRINT TAB(15)X2$ 

<076> 

1790 


<242> 

2520 

PRINT TAB(15 >X1S:PRINT TAB(15)X2$ 

<086> 

1800 

REM- 

<054> 

2530 

PRINT TAB(15)X1$:PRINT TAB(15)X2$ 

<096> 

1810 

REM SPRUNG 

<010> 

2540 

PRINT TAB(15 >X1$:F0$-, 

<156> 

1820 

REM- 

<074> 

2550 

IF F THEN F=0:GOTO 2630 

<109> 

1830 

Z=PEEK(BS+40*CZ+CS):IF Z<>81 THEN RET 


2560 

F= 1:PRINT"CHOME}:FOR 1=1 TO 9--PRINT: 



URN 

<227> 


NEXT 

<114> 

1840 

IF(J AND 1> =0 THEN 1920 

<068> 

2570 

PRTNT TAR ( 9 ) Fl * "TM.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.MS? 


1850 

IF(J AND 2)=0 THEN 2020 

<006> 



<142> 

1860 

IF(J AND 4)=0 THEN 2220 

<177> 

2580 

PRINT TAB(9)"ü”F0$" *** SOLITAIRE *** 


1870 

IF(J AND 8)=0 THEN 2120 

<172> 


"Fl$ "c," 

<001> 

1880 

RETURN 

<160> 

2590 

PRINT TAB (9) ”c,Cl 9SPACE>c." 

<004> 

1890 


<088> 

2600 

PRINT TAB ( 9) "c,“ F2$" (C) 1986 DIRK EUMAN 


1900 

REM-OBEN- 

<068> 


N"F1$ ''c" 

<128> 

1910 


<108> 

2610 

PRTNT TAB( 9 ) "??*.*,*,*,*,*,»M.M.M.M.M.M.T" 

<046> 

1920 

ZI=PEEK(BS+40*(CZ-2)+CS) 

<227> 

2620 

FOR 1=1 TO 3 000--NEXT: PRINT “CHOME}“ : =P 


1930 

Z2=PEEK(BS+40*<CZ-4)+CS):GOSUB 2330 

<111 > 


OKE 53281,15:GOTO 2410 

<016> 

1940 

IF F THEN F=0:GOTO 2350 

<015> 

2630 

POKE 214,12 = POKE 211,19:SYS 58640 

<052> 

1950 

FOR 1=0 TO 2:X=40* <CZ-2*I)+CS:POKE BS 


2640 

POKE 53281,HF:RETURN 

<024> 


+X.86:POKE FS+X,ABS(I>1):NEXT 

<111> 




1960 

FOR 1=1 TO WA:NEXT 

<234> 

© 64’er Listing. »Solitaire« (Schluß) 
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Super-Scrolling 
bringt Bewegung ins Spiel 


I 

m 


o 

2 

1 


Viele professionelle Spiele bringen erstaunliche 
Effekte auf den Bildschirm des C64, die eigentlich 
gar nicht funktionieren dürften, und von Basic aus 
nicht möglich sind. In diesem Kurs lernen Sie, sol¬ 
che Maschinenspracheroutinen zu entwickeln 
und in eigenen Programmen zu nutzen. 

B is zu 32 Sprites, die auf dem Bildschirmrand erschei¬ 
nen können, schnelles Soft-Scrolling für Sprites und 
Bildschirmzeichen oder ruckfreie Laufschriften - wer 
möchte solche Effekte nicht auch in eigenen Programmen 
nutzen? Wir zeigen Ihnen, wie Sie den Rasterzeilen¬ 
interrupt benutzen können, um Ihre Programme zu verbes¬ 
sern. 

Dies wird alles durch praktische Beispiele erleichtert. Sie 
sind ausschließlich in Maschinensprache geschrieben und 
mit Erklärungen versehen, weshalb Sie über gewisse 
Grundkenntnisse auf diesem Gebiet verfügen sollten. 

Solange er unter Strom steht, ist unser C64 stets mit 
irgendwelchen Tätigkeiten beschäftigt. Im Direktmodus 
hängt er zum Beispiel in einer Eingabeschleife und harrt 
der Dinge, die da kommen. Im Programm-Modus arbeitet er 
sich anhand der Interpreter-Schleife durch den Basic-Text 


und so weiter. Nun wird Ihnen sicherlich nicht unbemerkt 
geblieben sein, daß er im Direktmodus auch den Cursor 
blinken läßt, in beiden Modi die Tastatur abfragt, die Tl-Uhr 
aktualisiert und weitere Dinge tut, die scheinbar nebenher 
passieren. Im Gegensatz zum Menschen kann ein Compu¬ 
ter aber nur eins nach dem andern tun. Allein, weil er 
unheimlich schnell arbeitet, kommt es uns gleichzeitig vor. 
Wenn dem nun so ist, wie schafft es der C 64 dann aber, daß 
er gleichzeitig die Tastatur abfragt und ein Programm ab¬ 
arbeitet? Nun, er bedient sich der sogenannten Interrupt¬ 
technik (von englisch to interrupt = unterbrechen). Für 
kurze Zeit wird das laufende Programm unterbrochen, der 
Computer arbeitet ein neues ab und kehrt dann wieder 
zurück, um mit dem alten Programm fortzufahren. 

Ein Beispiel aus dem täglichen Leben soll uns dies ver¬ 
deutlichen: Nehmen wir einmal an, Sie sitzen gemütlich im 
Sessel und lesen Zeitung. Plötzlich klingelt das Telefon und 
ein Freund ruft an. Sie sprechen mit ihm eine gewisse Zeit 
und legen danach auf, um weiterzulesen. Dann klingelt es 
an der Haustür. Da Sie jetzt mit dem Lesen zu beschäftigt 
sind, reagieren Sie nicht und lesen einfach weiter. Dieses 
Beispiel beschreibt ziemlich einleuchtend, was in unserem 
Computer, natürlich in millionenfacher Geschwindigkeit, 
vor sich geht: 
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Bild 1. Das Prinzip der Unterbrechung durch IRQ. Ist das IRQ-Flag gesetzt, werden keine Interrupts angenommen. 


Der 6510-Prozessor unseres C64 verfügt über einen 
sogenannten IRQ-Eingang (von englisch Interrupt 
Request, Unterbrechungsanforderung). Bei einem Alarm, 
der von irgendeiner Interruptquelle ausgelöst wird, hält er 
das laufende Programm an, schiebt Programmzähler und 
Statusbyte auf den Stapel, um dann über einen Zeiger zur 
eigentlichen Interruptroutine zu springen. Nachdem diese 
abgearbeitet wurde, holt sie sich die Rücksprungadresse 
und die Register wieder vom Stapel, und der Computer 
fährt dort mit der Arbeit fort, wo er unterbrochen wurde. Bei 
einem erneuten Alarm, einem Interrupt also, geht das 
Ganze von vorne los: Der C64 hält das laufende Programm 
an, speichert die Register und so weiter. Wenn einmal keine 
Unterbrechungen gewünscht sind, setzt unser Computer 
einfach das »I«-Flag im Statusbyte und reagiert dann, bis 
dieses wieder gelöscht wurde, auf keinen Interrupt mehr. 
Bild 1 verdeutlicht Ihnen dieses Prinzip anhand einer 
Schemazeichnung. 

(Die Experten unter Ihnen werden natürlich wissen, daß 
es da auch noch den NMI- und den BRK-Interrupt gibt. 
Diese zwei sind für uns aber in diesem Zusammenhang 
unwichtig.) 

Wir nutzen den Interrupt 


Nach grauer Theorie wollen wir uns nun der Praxis zuwen¬ 
den. Geben Sie deshalb bitte Listing 1 ein und starten Sie 
es. Wenn Sie jetzt den Joystick in Port 2 bewegen, bewegt 
sich ein Sprite über den Bildschirm. Trotzdem können Sie 
gleichzeitig Text über die Tastatur eingeben. Wie geht das 
nun vor sich? Schauen wir uns dazu Listing 2, den Quell¬ 
code an. Wie bereits oben erwähnt, springt der Prozessor 
über eine Vektor zur eigentlichen Interruptroutine. Dieser 
befindet sich in der erweiterten Zeropage, bei $0314/$0315 
(dez 788/799). Normalerweise zeigt er auf die Betriebs¬ 
systemroutine bei $EA31, welche die Tastatur abfragt, die 
Tl-Uhr hochzählt und den Cursor blinken läßt. Hier können 


wir nun ansetzen: Wir verbiegen den Vektor auf unsere 
eigene Routine, die mit einem Sprung nach $EA31 enden 
muß. UrJ schon wird unsere Routine regelmäßig mit der 
Betriebssystemroutine, alle 1/60 Sekunde also, ausgeführt. 
Genau dies passiert in den Zeilen 14-18. Vielleicht haben 
Sie sich schon überden SEI-Befehl in Zeile 12 gewundert. 
Mit diesem setzen wir die »I«-Flagge, um einen auftreten¬ 
den Interrupt zu verhindern. Dies muß immer geschehen, 
wenn wir den Interrupt-Zeiger verbiegen. Denn nehmen wir 
einmal an, wir haben das Lowbyte des Zeigers bereits 
geändert, und es tritt ein Interrupt auf: Der Computer 
springt nun weder zur alten noch zur neuen Routine, son¬ 
dern eben zu der Routine, die durch Low- und Highbyte in 
$314/315 gekennzeichnet ist. Da an dieser Stelle dann 
nichts Sinnvolles steht, verschwindet er im Land der 
Träume. Am Ende unseres Initialisierungspogrammes, in 
Zeile 21, lassen wir durch ein Löschen des »I«-Flags mit CLI 
den Interrupt wieder zu und rufen noch eine kleine Routine 
auf, die uns ein Sprite erstellt. Dann beenden wir durch RTS 
unser Programm (falls Sie das Programm über einen 
Monitor wie den SMON starten, muß hier ein BRK-Befehl 
stehen). 

Bei jedem Interrupt wird jetzt unsere eigene Routine, die 
bei »IRQNEU« steht, aufgerufen. Diese fragt den Joystick 
ab und ändert demensprechend die Sprite-Koordinaten. 
Damit wir auch schräg fahren können, ist die Abfrage in 
einen horizontalen und einen vertikalen Bereich aufgeteilt. 
Zuerst schieben wir mit ROR die jeweiligen Bits für die Ver¬ 
tikalbewegung in das Carry-Flag und verzweigen dement¬ 
sprechend. Dies geschieht in den Zeilen 28-32. Je nach 
Verzweigung wird diese Bewegung dann in den Zeilen 
40-47 ausgeführt, und zwar durch Veränderung des VIC- 
Registers. Nun fragen wir durch nochmalige RORs die 
Horizontalbewegung ab (53-56) und bewegen dementspre¬ 
chend den Sprite (60-66). Die Joystickabfrage mit den 
ROR-Befehlen zeichnet sich übrigens durch erhöhte 
Geschwindigkeit und leichtere Handhabung gegenüber 
der Abfrage durch CMP-Befehle aus und sollte deshalb 


82 


SONDERHEFT 17 





















































C64 


GRUNDLAGEN 


immer eingesetzt werden. Unsere Routine endet schließ¬ 
lich mit einem Sprung nach $EA31, damit weiterhin die 
Tastatur abgefragt, der Curor bewegt und Tl$ erhöht wer¬ 
den. Falls wir darauf verzichten können, springen wir nach 
$FEBC. 

Interrupt im Eigenbau 


Dieses kleine Progrämmchen hat Ihnen also gezeigt, wie 
man den normalen Betriebssystem-Interrupt für seine 
Zwecke »ausnutzt« und sich in schmarotzender Weise in 
ihn »reinhängt«. Die eigentliche Bedienung von Interrupts, 
das Interrupthandling, wurde bis jetzt noch nicht geändert. 
Dies soll im nächsten Schritt geschehen. Wir wollen uns 
langsam über die höhere Kunst dem »sophisticated pro- 
gramming« der Interrupts zuwenden. Mit den Möglichkei¬ 
ten, die wir uns erarbeiten, öffnet sich Ihnen eine neue Welt 
der Grafikprogrammierung. 

Da bei den uns begleitenden Programmen die Register 
des VIC und der CIA-Bausteine sowie einige Speicherstel¬ 
len und Routinen, darunter die mittlerweile bekannte Kom¬ 
bination $314/15 und $EA31 des öfteren benötigt werden, 
wurden sie als Variablen definiert. Schauen Sie sich diese 
Variablendefinition (Listing 3) bitte an. Jedesmal, wenn Sie 
auf einen unbekannten Namen stoßen, können Sie nach¬ 
schauen und wissen dann, welche Zahl er repräsentiert. 

Bei unserer theoretischen Erklärung erhielten Sie die 
lapidare Auskunft, der Interrupt werde durch einen »Alarm« 
am IRQ-Pin ausgelöst. Doch woher kommt dieser Alarm? 
Kann man ihn beeinflussen, eröffnen sich dadurch even¬ 
tuell fantastische neue Perspektiven der Programmierung? 
Nun, die Anworten dieser teils rhetorischen Fragen sollen 
uns im folgenden beschäftigen. 

Quellen für Unterbrechungen gibt es viele. Neben den 
computerinternen Bausteinen wie CIA und VIC kann ein 
Interrupt praktisch jedes Peripheriegerät, wie Modem, 
Drucker, Floppy und Datasette auslösen. Um eine gewisse 
Übersichtzu behalten, unterscheidet man zwischen primä¬ 
ren und sekundären Unterbrechungsquellen. Als primäre 
bezeichen wir diejenigen, die direkt im Computer einge¬ 
bautsind und folglich bei jedem Computer vorhanden sind, 
also den VIC und die CIA-Bausteine. Sekundäre Inerrupt- 
quellen sind dann logischerweise die Peripheriegeräte. In 
den folgenden Ausführungen werden wir uns auf die primä¬ 
ren Quellen beschränken, und, auch von diesen soll nur ein 
kleiner, dafür aber um so feinerer Teil behandelt werden. 

Normalerweise wird ein Interrupt durch einen Timer im 
CIA-Baustein ausgelöst. Ein Timer ist eine hardware¬ 
mäßige Uhr, die ständig heruntergezählt wird. Per Software 
können wir nun einen bestimmten Wert voreinsteilen. 
Wenn derTimer dann von diesem bis Null gezählt hat, fängt 
er wieder von vorne an. Und wenn er darauf programmiert 
wurde, löst er bei Erreichen der Null einen Interrupt aus. 
Beim C64 ist der Timer so eingestellt, daß jede 1/60 
Sekunde ein Interrupt ankommt. Folglich wird die Tastatur 
60 mal pro Sekunde abgefragt. Wollen wir diesen Wert 
doch einmal ändern ! 

Dazu müssen wir nur die Speicherstellen $DC04/$DC05 
beschreiben. Geben Sie einmal folgenden Befehl ein: 

POKE 56325,20 

Na, wie gefällt Ihnen unser Expreß-Cursor? 

oder wie wär’s mit 

POKE 56325,100 

Nun schleicht der Cursor langsam dahin. Fragen Sie 
auch mal dieTI-Uhrab. Sie werden feststellen, daß die Gute 
vollkommen falsch geht. Auch das ist logisch: Der Interrupt 
wird ja jetzt seltener ausgelöst. 


Wir können aber nicht nur die Interruptquelle beeinflussen, 
sondern eine völlig neue verwenden. Neben den anderen 
Timern im CIA (es gibt deren vier), kann auch der Videochip 
einen Interrupt auslösen. 

Schauen Sie bei den nun folgenden Ausführungen bitte 
Bild 2 an. Es stellt die zwei Register im Videochip dar, die 
für die Behandlung von Unterbrechungen verantwortlich 
sind. Wie Sie sehen, gibt es insgesamt vier Möglichkeiten 
einen Interrupt auszulösen: Erstens durch den Lichtgriffel, 
dann durch eine Sprite/Sprite oder eine Sprite/Hinter¬ 
grundkollision und schließlich durch den Rasterstrahl. 
Jede Interruptart ist einem Bit in den zwei Registern zu¬ 
geordnet. 

Indem wir im VIC-Register 25 ($D01A), dem Interrupt- 
Enable-Register (von englisch to enable = ermöglichen) 
nun das entsprechende Bit setzen (»den Interrupt maskie¬ 
ren«), können wir für eine neue Interruptquelle sorgen. Im 
Klartext heißt das soviel wie: Angenommen, wir setzen Bit 
2 für die Sprite/Sprite-Kollision, wird jedesmal, wenn ein 
Sprite ein anderes berührt, ein Interrupt ausgelöst. Wenn 
wir Bit 1 setzen, geschieht dasselbe bei einer Sprite-Hinter- 
grundberührung, bei Bit 3, wenn der Lichtgriffel an einer 
bestimmten Stelle steht, etc. (Bit 0 bietet soviele Möglich¬ 
keiten, daß hierauf später eingegangen wird). 

Das Register VIC+26 können wir nur lesen, beim 
Beschreiben passiert nichts. Es hat folgende Funktion: 
Wenn ein Interrupt durch den Videochip ausgelöst wurde, 
ist das entsprechende Bit gesetzt. Bei einer Sprite/Sprite- 
Kollision wird also, vorausgesetzt, sie ist vorher maskiert 
worden, ein Interrupt ausgelöst und das Bit 2 in Register 26 
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Bild 2. Die VIC-Register 25 und 26 


des Videochip gesetzt. Außerdem wird bei jedem VIC- 
Interrupt das Bit 7 gesetzt. Durch Abfrage dieser Bits kön¬ 
nen wir nun entscheiden, ob ein VIC-lnterrupt vorliegt und 
welcher. Diese Abfrage sollte immer am Anfang des eige¬ 
nen Interrupts kommen. Hierzu ein Beispiel. Starten Sie 
bitte Listing 4: Zwei Sprites bewegen sich aufeinander zu, 
und jedesmal, wenn es zu einer Kollision kommt, wird die 
Farbe des Rahmens geändert. Und trotzdem befindet sich 
der Computer noch im Direktmodus. 

Wie funktioniert dieses Programm nun? Im Quellcode, 
Listing 5, finden wir die Antwort darauf. In den Zeilen 
112-115 wird auf die uns bekannte Weise der Interrupt- 
Zeiger verbogen. In Zeile 107 wählen wir den Spritekolli- 
sionsinterrupt, und in Zeile 110 lesen wir das eigentliche 
Spritekollisionsregister, um es funktionsfähig zu machen. 
Nachdem wir in der Spritemake-Routine schnell 2 Sprites 
erstellt, eingeschaltet und positioniert haben, verlassen wir 
die Routine, natürlich nicht ohne vorher den Interrupt frei¬ 
zugeben. 

Jeder Interrupt läuft jetzt also über unser »IRQNEU«. Die 
Betonung liegt hier auf jeder: Egal, ob der Interrupt durch 
den Timer des CIA oder durch eine Sprite/Sprite-Kollision 
ausgelöst wurde, der Computer springt nach »IRQNEU«. 
Da wir aber je nach Interrupt eine unterschiedliche Reak¬ 
tion haben wollen (bei Kollision soll sich die Rahmenfarbe 
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ändern, bei Timerunterlauf soll der Sprung zur Betriebs¬ 
system-Routine erfolgen), müssen wir selbst herausfinden, 
wer der Verantwortliche für den Interrupt ist. Dies geschieht 
in den Zeilen 125-130: Wir laden den Akku mit dem Inhalt 
von VIC+25, schreiben den Inhalt zurück (das ist notwen¬ 
dig, um ein »Klemmen« der Bits zu verhindern) und über¬ 
prüfen dann mit BMI Bit 7. Wenn es gesetzt ist, hat ein VIC- 
Interrupt stattgefunden, und wir springen nach »VICTEIL«. 
Wir brauchen hier nicht nach den anderen Bits zu fragen, 
da wir die Sprite/Sprite-Kollision als einzige Möglichkeit 
haben. Bei »VICTEIL« erhöhen wir nun die Rahmenfarbe 
(139), löschen das Kollisionsregister (141) und springen 
zum Interruptabschluß (143). Dieser liegt bei $FEBC, holt 
die Register vom Stapel und sorgt für einen Rücksprung ins 
Hauptprogramm. 

Falls es sich nicht um einem VIC-lnterrupt handelte, ver¬ 
ändern wir in Zeile 131-132 die Position der Sprites und 
springen dann zum normalen Interrupt. 

Sie haben jetzt also gesehen, wie wir die Interruptquelle 
VIC zu behandeln haben. Analog zur Sprite/Sprite-Kollision 
können wir auch die Sprite/Hintergrund-Kollision abfragen, 
wir müssen dann nur die entsprechenden Werte in den Zei¬ 
len 107, 110 und 141 anpassen. Selbst beides zugleich ist 
möglich: Dazu müssen Sie einfach beide Bits setzen und 
die Interruptfrage weiter unterteilen. Ein ensprechendes 
Struktogramm zeigt Ihnen Bild 3. 

Jetzt haben wir also zwei der vier Interruptmöglichkeiten 
des VIC behandelt. Auf den Lichtgriffel (oder auf Neu¬ 
deutsch Lightpen) soll an dieser Stelle nicht eingegangen 
werden, da a) nicht jeder von Ihnen über ein solches Gerät 
verfügen wird, und b) das Arbeiten mit dem Lichtgriffel nur 
an guten Fernsehgeräten möglich ist. Aber es gibt ja noch 
ein viertes Bit, Bit 0 nämlich, das den geheimnisvollen 
»Rasterinterrupt« steuert. Was ist darunter zu verstehen? 

Für die Bilderzeugung im C64 ist bekanntermaßen der 
Videochip 6569 verantwortlich. Dieser baut sein Bild so 
auf, wie es von jedem Fernseher erwartet wird, nämlich zei¬ 
lenweise (siehe Bild 4). Dazu tastet er 50mal pro Sekunde 
den Bildschirm ab und sendet ein Bild an den Ausgang. Er 
geht dabei von links oben nach rechts unten vor. Jedesmal 
bei der Darstellung eines Punktes schaut er in seinen Regi¬ 
stern nach, was er denn eigentlich darstellen muß: ob Hires 
oder normalen Textmodus, ob Sprites oder nicht, welche 
Farbe was bekommt etc. Dies geschieht mit einer unglaub¬ 
lichen Geschwindigkeit, da er ja pro Sekunde 25*400* 
280=2,8 Millionen Punkte (den Randbereich eingerechnet) 
übermitteln muß. Der VIC hat nun eine interessante Mög¬ 
lichkeit eingebaut, eben jenen Rasterinterrupt. Bei Errei¬ 
chen einer bestimmten Rasterzeile löst er ihn auf Wunsch 
aus. 

Ein Strahl als Schuldiger - 
der Rasterinterrupt 


Ein theoretisches Beispiel: Wir programmieren den Inter¬ 
rupt auf eine bestimmte Zeile, sagen wir mal, den Anfang 
des Textfensters (Zeilenzahl=50). Beim nächsten Interrupt 
befindet sich der Rasterstrahl genau in dieser Zeile. Wir 
verändern jetzt zum Beispiel Hintergrund- und Rahmenfar¬ 
ben (von grün auf schwarz). Dann ändern wir die Zeile auf 
das Ende des Textfensters (Zeilenzahl=250). Hier wird also 
der nächste Interrupt ausgelöst. Dieser Interrupt setzt die 
Farbe von schwarz wieder auf grün. Außerdem wählt er wie¬ 
der die obere Zeile vor. An der oberen Zeile (50) angelangt, 
läuft wieder dasselbe ab. Wenn Sie Listing 6 als prakti¬ 
sches Beispiel eingeben und starten, sehen Sie es: Das 
Ergebnis ist ein schwarzer Bildschirm mit wohltuenden 
grünen Randerscheinungen, eine Kinoleinwand also. 



1 



Verzweigungsstruktur 


Bild 3. Die verschiedenen Sprite-Kollisionen 
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Weg des Aufbaus 



Bild 4. Das Prinzip des Bildaufbaus. Der Strahl bewegt sich zeilenweise von lins oben nach rechts unten. 


•Bit 8- 


Neben der Rahmenfarbe können wir natürlich alle ande¬ 
ren Register verändern, periodisch auf die Position der 
Rasterzeile einwirken, den Joystick Einfluß nehmen las¬ 
sen, um Hires und Text oder mehrere Zeichensätze auf 
einem Bildschirm darzustellen, einen Rand aus Streifen 
erzeugen, Sprites im Rand darstellen und so weiter. 

Doch bevor zu sehr geschwärmt wird, schauen wir uns 
den Quellcode (Listing 7) an: Das Verbiegen des Zeigers 
(Zeile 134-137) ist ja inzwischen bekannt. In Zeile 120 schal¬ 
ten wir dann den Timer-Interrupt aus, denn wir können die 
$EA31-Routine ja auch über den Rasterinterrupt aufrufen. 

In Zeile 131 wählen wir nach bekanntem Muster einen VIC- 
Interrupt, diesmal eben den Raster-Interrupt (Bit Ö auf 1). ( 


9 Bit breit = > 512 Werte 
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VIC + 17 


VIC + 18 


Bild 5. Die Rasterstrahlregister 17 und 18 


Neu sind dagegen die Zeilen 125-129: Hier wird die Raster¬ 
zeile, bei der der erste Interrupt auftritt, eingestellt. Sie 
bekommt das Label »OBEN« zugewiesen und steht im VIC- 
Register 18 ($D012). Da der Videochip etwas über den obe- 


ADC #$01 

beziehungsweise 

SEC 

SBC #$01 


ren und unteren Rand hinausläuft, kennt er mehr als für 
acht Bit nötig. Das neunte Bit, das dafür benötigt wird, steht 
als Bit 8 im Register VIC+17. Diesen Sachverhalt zeigt Bild 
5 nochmal. 

Für unseren Zweck haben wir stets Rasterzeilen kleiner 
255, deshalb können wir dieses Bit löschen. 

Schauen wir uns jetzt die neue Interruptroutine an: Die 
Prozedur in Zeile 146 ist ja bekannt, sie verhindert ein 
»Klemmen« des Interruptbits. In Zeile 149 lesen wir dann 
die aktuelle Rasterzeile, die ebenfalls in Register 18 des 
VIC steht. 

Register 18 hat nämlich eine Doppelfunktion: Beim 
Lesen erfährt man die Rasterzeile, die der VIC momentan 
darstellt. Wird es dagegen beschrieben, legt man die 
Rasterzeile für den Interrupt fest. 

Diese Zeile prüfen wir jetzt: Je nachdem, ob der Interrupt 
oben oder unten erfolgte, wird entsprechend verzweigt. Bei 
»ISTOBEN« wird die Rahmen- und Hintergrundfarbe 1 
gesetzt und die untere Rasterzeile in das Rasterregister 
geschrieben. Dann wird die Routine durch einen »IRQAB- 
SCHLUSS« beendet. 

Handelte es sich dagegen um die untere Rasterzeile, bei 
»ISTUNTEN«, werden Rahmen und Hintergrund mit Farbe 
2 gefärbt und die obere Rasterzeile angewählt. Schließlich 
springen wir noch zur altbekannten Betriebssystemroutine, 
die sich um Tastatur etc. kümmert. 

Spielen Sie nun mit diesem Programm solange, bis Ihnen 
die Funktionen vertraut sind: Ändern Sie die Farbe und die 
Zeilen, wie es Ihnen gefällt. Vielleicht probieren Sie auch ein¬ 
mal ein »buntes Schachbrettmuster«: Fügen Sie vor die zwei 
»STA RAHMEN«-Befehle (155 und 162) die Folge 


ein und setzen OBEN = $60 sowie UNTEN = $BA. Ein 
hübsches Bild, nicht wahr ? Und das alles im Interrupt, also 
quasi ohne Zeitaufwand. 

Oben wurde erwähnt, daß man neben der Rahmenfarbe 
auch noch andere Register verändern kann. Stimmt. Ein 
kleines Beispiel, zwei Zeichensätze auf einem Bildschirm. 
Fügen Sie dazu einfach vor dem Sprung zum »IRQAB- 
SCHLUSS« den Befehl 

LDA #$15 
STA C0NTR0L3 

und vor den Sprung zum »IRQNORMAL« den Befehl 

LDA #$16 
STA C0NTR0L3 

ein. Control3 ist ja das Register für den Zeichensatz 
(VIC+24,$D018). Es wird also analog zur Rahmenfarbe der 
Zeichensatz geändert. Den veränderten Teil zeigt Ihnen 
Listing 8. Wenn Sie jetzt ein Listing auf dem Bildschirm lau¬ 
fen lassen, ändert sich der Zeichensatz jedesmal an der 
Grenze. Experimentieren Sie ruhig weiter, wie wär’s mit 
einem Bildschirm, der gleichzeitig Multi- und Singlecolor 
zu bieten hat? Oder zwei unterschiedliche Farbpaletten für 
Multicolor und noch viel mehr. 

Nach dem Start präsentiert Ihnen Listing 9 eine französi¬ 
sche Trikolore, die über den ganzen Bildschirm geht und 
durch Rasterinterrupts an insgesamt 3 Stellen erreicht 
wird. Die Arbeitsweise dieses Programmes umreißt das 
Struktogramm in Bild 6 grob: Wir fragen mit mehreren 
CMP-Befehlen die jeweiligen Zeilen ab. Weil es diesmal 3 
Programmteile gibt, muß das Programm eben 3mal ver¬ 
zweigen. Da das Programm ansonsten identisch mit dem 
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Bild 6. 3stufiger Rasterinterrupt 

2-Farb-Programm ist, schauen wir uns nur diese Stelle 
etwas genauer an: 

IRQNEU LDA IRQFLAG 
STA IRQFLAG 
LDA RASTER 
CMP #MITTE 
BCC ISTOBEN 
LDA RASTER 
CMP #UNTEN 
BCC ISTMITTE 
JMP ISTUNTEN 

Die Rasterzeilen werden hier von oben her einzeln ver¬ 
glichen 

ISTOBEN .... 

LDA #MITTE 
STA RASTER 

ISTMITTE .... 

LDA #UNTEN 
STA RASTER 

ISTUNTEN .... 

LDA #OBEN 
STA RASTER 

In diesen Programmteilen wird, wie hier ersichtlich ist, 
jeweils die nächste Zeile in das Rasterregister geschrie¬ 
ben. Man könnte die Verzweigungsvorschrift folgender¬ 
maßen zusammenfassen: 


1. Vergleiche die momentane Rasterzeile mit der zweit¬ 
obersten 

2. Wenn es sich um diese handelt, springe zu der ent¬ 
sprechenden Routine, in der dann die Zeile eins tiefer ins 
Rasterregister gebracht wird. 

3. Wenn es diese Zeile noch nicht war, nimm die nächst¬ 
untere und vergleiche wieder. 

4. Springe bei positivem Vergleich zur mittleren Routine, 
nimm die Zeile eins tiefer und .... 

5. ... wenn ganz am Schluß die vorletzte Zeile durch ist 
sind wir ganz unten. 

Bei drei Vergleichen ist diese Methode ja noch akzep¬ 
tabel. Aber stellen Sie sich einmal vor, wie lange und 
umständlich das Programm wird, wenn wir 10 oder mehr 
Interrupts haben. Es bietet sich bei so einer einfachen Bil¬ 
dungsvorschrift geradezu an, das Ganze in eine Schleife 
zu packen. Dazu müssen wir eine Tabelle mit den Ver¬ 
gleichswerten und den Farben anlegen. Dann vergleichen 
wir die Tabellenwerte von vorn nach hinten und verzweigen 
dementsprechend. Das Struktogramm in Bild 7 verdeut¬ 
licht dieses Prinzip. 

Programmtechnisch ist so eine Schleife nicht schwer zu 
verwirklichen. 

Beliebig viele Bildschirmbereiche 


Geben Sie Listing 10 nun ein und starten Sie. Es präsentiert 
sich ein mehrfarbiger Hintergrund, der ziemlich gut aus¬ 
sieht. Der Quellcode, Listing 11, unterscheidet sich von den 
anderen Rahmenfarb-Programmen nur durch die Auftei¬ 
lung der Interruptroutine. Schauen wir 'mal rein! Die Zeilen 
148 und 149 sind alte Bekannte. Von 151 bis 159 steht nun 
die Ver^'aichsschleife. Die einzelnen Vergleichswerte ste¬ 
hen in der Tabelle, die mit dem Label »ZEILE« (184) beginnt. 
Zu Beginn unserer Loop laden wir das X-Register mit 0. 
Dann Vergleichen wir die Werte aus der Tabelle, und zwar 
X-indiziert. Sobald der entsprechende Wert gefunden 
wurde, wird verzweigt. In »WEITER« wird zuerst ein Verzö¬ 
gerungswert aus der »COUNT«-Tabelle geladen. Dann folgt 
in 170-172 eine kleine Verzögerungsschleife, die ein 
Flackern am Übergang der Zeilen verhindert. Schließlich 
wird aus den Tabellen die Farbe und die nächste Zeile gela¬ 
den und an die entsprochene Stelle gebracht. Dann sprin¬ 
gen wir zum Abschluß. 

Falls kein Vergleich ein Ergebnis brachte, sind wir ganz 
unten. In Zeile 160 wird deshalb wieder der erste Wert gela¬ 
den und zum Betriebssystem gesprungen. 

Wieviel Interrupts wir mit dieser Methode haben, können 
wir selbst einfach bestimmen: Wir schreiben die einzelnen 
Rasterzeilen hintereinander nach »ZEILE«, die Farben 
legen wir ab »FARBE« ab. Dann müssen wir noch den Ver¬ 
gleichswert in Zeile 157 auf die Anzahl der Zeilen +1 
ändern. Die Verzögerungswerte ab Count müssen aller¬ 
dings durch Ausprobieren herausgefunden werden, da sie 
von Zeile zu Zeile verschieden sind. 

Bis jetzt haben Sie in diesem Kurs erfahren, wie man 
Interrupts bedient, und wir haben mehrere Unterbrechun¬ 
gen an beliebigen Stellen des Bildschirms programmiert. 
Die trockene Theorie liegt nun hinter uns. Der Schwerpunkt 
soll von jetzt ab mehr auf der Anwendung als auf der Bedie¬ 
nung des VIC-lnterrupts liegen. Als erstes Beispiel soll ein 
Programm folgen, das 14 Sprites darstellen und verwalten 
kann. Mit Ihren jetzigen Kenntnissen sind Sie durchaus in 
der Lage, es zur Darstellung von 20,26 oder sogar 32 Stück 
zu bringen. 

Schnell Listing 12 abgetippt, gestartet und gestaunt: 14 
Quadrate führen ein einträchtiges Leben auf dem Bild¬ 
schirm. Daß es sich dabei um Sprites handelt, sehen Sie, 
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wenn Sie mit dem Cursor darüberfahren: Die Blöcke wer¬ 
den nicht gelöscht. Wie bei normalen Sprites können Sie 
auch hier die Farbe ändern. 

Mit POKE 49548+NUMMER,FARBE 
werden die Sprites in der oberen Reihe coloriert. Die ent¬ 
sprechende Speicherstelle für die unteren Sprites ist 
49596. Wie wär’s mit einem anderen Aussehen? 

Die Befehle POKE 49605+NUMMER,Block 
beziehungsweise POKE 49613+NUMMER,BLOCK 
bestimmen den Block für das jeweilige Sprite. 

Auch die Koordinaten sind änderbar: Ab 49509 stehen 
sie für die obere Reihe, und ab 49557 findet man sie für die 
untere. 

Dieser Trick basiert natürlich auf dem Rasterzeilen¬ 
interrupt: Der Bildschirm wird in zwei Bereiche unterteilt, in 
denen jeweils neue Werte in die Register des VIC geschrie¬ 
ben werden. Dazu reservieren wir zwei Speicherbereiche 
von 48 Byte Länge, also der Ausdehnung des Videochips 
und transferieren bei jedem Interrupt die Inhalte in den 
echten VIC. 


Im Programm, dessen Quellcode Sie in Listing 13 sehen, 
wird dies folgendermaßen verwirklicht: In den Zeilen 323 
bis 330 stellen wir insgesamt 112 Bytes für die »Videochips« 
und die Kopien der Blockzeiger bereit. Dieser Bereich wird 
dann zu Beginn unseres Programmes initialisiert: Nach¬ 
dem wir ein Quadrat als Muster erzeugt haben, werden von 
Zeile 122 bis Zeile 141 die Koordinaten in den Pseudo-VIC 
geschrieben. Da wir später nur 6 Sprites »verdoppeln« wol¬ 
len, geschieht dies nur sechsmal. Einfache Schleifen holen 
die Werte aus einer Tabelle. Dann setzen wir die Pseudo- 
Blockpointer, stellen einige Parameter ein und springen 
zum IRQ-INIT. 

Unser neuer Interrupt (ab 216) macht nun folgendes: Je 
nach Rasterzeile, »OBEN« oder »UNTEN« also, transferiert 
er die Werte aus VIC1 beziehungsweise VIC2 in den echten 
Videochip bei $D000. Wenn jetzt Sprites bewegt oder ver¬ 
ändert werden sollen, darf dies folglich nicht mehr durch 
Beschreiben der entsprechenden Werte im echten VIC er¬ 
folgen: Der nächste Interrupt würde diesen ja wieder neu 
belegen. Deshalb müssen wir uns an die Pseudo-VICs 
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Bild 7. Rasterinterrupts an beliebig vielen Stellen sind etwas umfangreicher 
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Diese Aufteilung ist möglich... ...diese dagegen nicht 


Bild 8. Mögliche und unmögliche Verteilung von 14 Sprites 

wenden: Eine Änderung darf nur hier erfolgen. Und genau 
das haben wir oben gemacht: Durch unsere POKEs haben 
wir die Pseudo-Register beschrieben, die im richtigen 
Moment in den VIC gewandert sind. 

Wir müssen allerdings bei unseren vervielfachten 
Sprites auf eines achten: Die Y-Koordinaten der Sprites 
dürfen nur im jeweiligen Bildschirmfenster liegen. Eine Auf¬ 
teilung wie in Bild 8 ist folglich nicht möglich. Da es aber 
manchmal unvermeidlich ist, ein Sprite über den ganzen 
Bildschirm zu bewegen, haben wir zwei davon bei unserer 
Transferaktion ausgeschlossen. Die Koordinaten der Spri¬ 
tes 6 und 7 sind wie üblich in den Registern $D00C/$D00D 
und $D00E/$D00F zu finden. 

Das Prinzip unseres Programms ist also die Aufteilung 
des Bildschirms. Es ist natürlich noch ausbaufähig: Wenn 
Sie den Bildschirm dreiteilen, haben Sie drei mal sechs 
plus zwei, also 20 Sprites, zur Verfügung. Interessant wäre 
auch eine Bewegung der einzelne Sprites, die ihrerseits 
wieder im Interrupt geschieht. Doch das soll Ihrer Kreativi¬ 
tät überlassen bleiben. 

S4CR O 

Bilder im Bildsdiirmrand 


Wir wollen uns jetzt nämlich einem neuen Trick zuwenden: 
Sicherlich haben Sie des öfteren Demos gesehen, die den 
eigentlich einfarbigen Rand mit Grafiken oder sogar mit 
Laufschriften verschönern. Wie ist das möglich? 

Nun, bei diesen Grafiken handelt es sich um Sprites, die 
einer Besonderheit des VIC ihr Leben am Rande des Bild¬ 
schirms zu verdanken haben. Doch starten Sie erst einmal 
Listing 14. Im oberen Rand erscheinen Muster, die sich als 
Sprites entpuppen: Durch entsprechende POKEs im VIC 
können Sie Position und Aussehen leicht ändern. Einfach 
und genial. Was die Programmierung des VIC 6569 
angeht, kann der Trick, der zu Sprites im Rand führt, diesen 
Anspruch für sich verbuchen. Wie Sie wissen, kann man 
die Größe des Bildschirmfensters variieren: Wenn Bit 3 im 
Register VIC+17 gelöscht wird, stellt der VIC nur mehr 24 
Bildschirmzeilen dar. 

Wie geschieht das eigentlich im Videochip? Nun, für uns 
ist die Antwort kein Problem mehr: Normalerweise wird in 
der Rasterzeile 250 die Bildschirmdarstellung abgebro¬ 
chen und Rahmen und Hintergrund nehmen eine einheit¬ 
lich Farbe an. Wenn besagtes Bit gelöscht ist, geschieht 
dies schon acht Zeilen vorher, also bei 242. Hier können wir 
nun ansetzen und den VIC überlisten. Schauen Sie sich 
dazu den Quellcode in Listing 15 an: Zu Beginn erstellen wir 
wieder ein Sprite und schalten den Rasterzeilen-Interrupt 
ein. Bei »IRQPLUS« steht dann unser neuer Interrupt. Er ist 
zweigeteilt und erfolgt bei Erreichen der Rasterzeilen 247 
und 1. Unten wird’s dabei interessant: Normalerweise ist Bit 
3 in VIC+17 gesetzt, der Bildschirm bleibt auf 25 Zeilen. 
Dafür sorgt der obere Teil des IRQs (Zeilen 178-179). Der 
untere Interrupt erfolgt nun genau zwischen der 24. und 25. 
Zeile des Bildschirms: Hier wird der Bildschirm plötzlich auf 


24 Zeilen geschaltet. Durch diesen Trick »vergißt« der VIC, 
den Bildschirm abzuschalten: Er ist ja der Meinung, er 
habe dies schon bei Zeile 24 getan. Dem ist aber nicht so, 
und die Sprites bleiben brav erhalten. Wir können die Spri¬ 
tes über den ganzen Bildschirm verteilen, unser Programm 
setzt den Y-Wert auf 8. Eine weitere Besonderheit, die sich 
auf diese Eigenart des VIC bezieht, soll nicht unerwähnt 
bleiben: der Inhalt des ehemaligen Randbereichs. Er wird 
durch das Bitmuster im letzen Byte der Videobank, norma¬ 
lerweise also der Wert in $3FFF, bestimmt. Steht hier $00, 
erscheint dieser Bereich in der Rahmenfarbe, bei $FF in 
der Hintergrundfarbe. Bitkombinationen, die dazwischen 
liegen, erzeugen ein dementsprechendes Muster. 

So einfach dieser Trick ist, so wirkungsvolle Effekte kann 
man damit erzielen. Probieren Sie doch mal! Wie wäre es 
zum Beispiel mit einer nach oben verlängerten Grafik oder 
einer Punkte-Anzeige, die den Bildschirmaufbau nicht 
behindert? Oder mit einer Laufschrift im Rand, oder einer 
Uhr, und so weiter. 

Wir wollen im Kurs fortfahren: Hires und Text auf einem 
Bildschirm dürften für uns keine Probleme sein. Allerdings 
müssen wir hier ein paar Kleinigkeiten beachten, weshalb 
wir erst jetzt dazu kommen. Das Prinzip sehen Sie in Listing 
16: Der Bildschirm wird auf die altbekannte Weise aufge¬ 
teilt. Laden Sie doch mal ein Hires-Bild nach $2000. Dies 
erscheint nach Programmstart im oberen Teil des Bildschir¬ 
mes, und wenn Sie Text eingeben, erscheint er in einem 
kleinen Fenster unten. Damit der Jext nicht die Farben des 
Hires-Bildes zerstört, sind einige Änderungen im Betriebs¬ 
system notwendig. 

Nun, erst einmal dürfen nur die unteren Zeilen gescrollt 
werden. Dann soll ein Löschen des Bildschirms ebenso 
wirkungslos sein wie der HOME-Befehl. Schließlich muß es 
udfnög’- h sein, das Fenster mit dem Cursor zu verlassen. 

Im Quellcode (Listing 17), kopieren wir zu diesem Zweck 
von Zeile 120 bis zur Zeile 150 Basic und Kernel in das dar¬ 
unterliegende RAM. Hier können wir dann unsere Ände¬ 
rungen (ab Zeile 156) vornehmen. Zu Beginn der Ein¬ 
sprünge in die CLS-Routine schreiben wir ein RTS, damit 
diese nicht ausgeführt wird. Dann sorgen wir dafür, daß 
beim Scrollen der Farbspeicher nicht verändert wird. Der 
HOME-Befehl wird mit NOPs überschrieben, und am Ende 
verlegen wir die Zeile, von der ab der Text gescrollt wird, auf 
den obersten Wert unseres Fensters. Wir schalten dann 
das neue Betriebssystem ein. Wenn zwischen Hires und 
Text umgeschaltet wird, kommt es an der Grenze oft zu 
einem Flackern. Um dieses unsichtbar zu machen, erstel¬ 
len wir ab Zeile 186 einen Balken aus Sprites, der an der 
unteren Rastergrenze positioniert wird. Unser neuer IRQ 
ist wieder zweigeteilt, steht ab Zeile 287 und dürfte nicht 
schwer zu verstehen sein: Im oberen Bereich schalten wir 
die hochauflösende Grafik ein, im unteren wieder aus. 
Außerdem wird hier noch überprüft, ob der Cursor das Fen¬ 
ster verläßt. Die genaue Funktionsweise können Sie an¬ 
hand des Quellcodes nachvollziehen. 

Sie haben jetzt also die Möglichkeit, den Adventures 
nachzuziehen und können ein Spiel gestalten, das Hires- 
Grafiken zeigt und die Eingabe von Text im unteren Bereich 
gestattet. Allerdings wird mit unserer Methode der Spei¬ 
cher ziemlich ungünstig genutzt, da wir ja das Betriebssy¬ 
stem modifizieren müssen. So gehen immerhin 16 KByte 
Speicher verloren, was gerade bei Programmen mit viel 
Grafik kein Pappenstiel ist. Es empfiehlt sich deshalb, eine 
eigene Eingaberoutine zu schreiben. Dazu müssen Sie, 
kurz gesagt, die Tastatur abfragen, zugelassene Zeichen 
ausgeben und Zwischenspeichern und die Eingaben dann 
verarbeiten. Da dies bei einem Adventure sowieso erfolgen 
muß, ist der Mehraufwand dafür tragbar. Versuchen Sie 
sich doch mal in diesem Metier! 
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An dieser Stelle soll Zeit für ein kleines Resümee des bis¬ 
her Gelernten sein: Sie wissen nun, wie man Interrupts pro¬ 
grammiert. Dann haben Sie sich mit der Funktionsweise 
des VIC-lnterrupts bekanntgemacht. Sie haben gelernt, 
den Bildschirm aufzuteilen und haben dies an einigen Pro¬ 
grammen nachvollzogen. Alle diese Beispiele hatten eines 
gemeinsam: Die Rastergrenzen blieben nach Start des 
Programms erhalten. Das wollen wir jetzt ändern. Mit 
Listing 18 haben Sie hierfür ein Beispiel: Erst fährt das 
Hires-Bild von oben herein. Dann können Sie mit dem Joy¬ 
stick in Port 2 den Bildschirm wie mit einem Rolladen 
schließen oder öffnen. Die untere Rasterzeile wird also vom 
Joystick - in einem begrenzten Bereich - verändert. 

Hi res mit Rolladen 


Ein Blick in Listing 19 zeigt uns, was wir schon vermutet 
haben: Das Grundgerüst unterscheidet sich kaum von dem 
Hires-Text-Programm. Wichtigste Änderung ist die Be¬ 
handlung der unteren Zeile für den Rasterzeilen-Interrupt. 
Sie ist keine Konstante mehr, sondern befindet sich in Spei¬ 
cherzelle UNTEN (=254). Dadurch können wir sie leicht 
verändern. 

In der Routine, die den oberen Interrupt bearbeitet, fra¬ 
gen wir den Joystick ab. Schauen Sie sich dazu bitte das 
Struktogramm in Bild 10 an: Zuerst wird auf ein Flag 


geprüft. Dieses sagt uns, ob der Bildschirm schon einmal 
ganz unten war (am Anfang fährt er ja von selbst herunter). 
Ist dies der Fall, fragen wir den Joystick ab und verzweigen 
dementsprechend. Dann folgen die Routinen für die Bewe¬ 
gung. Je nach Richtung wird die Zeile in UNTEN erhöht 
oder erniedrigt. Beide Routinen enden schließlich mit 
einem Sprung zum Betriebssystem. 

Dieses Programm läßt sich gut für effektvolle Demos ver¬ 
wenden. Nicht nur, daß Hires und Text ineinander überblen¬ 
den, dies geschieht auch völlig weich und kontinuierlich. 
Warum eigentlich? 

Nun, die Beantwortung dieser Frage läßt einen ganz 
neuen, aber nicht minder interessanten Aspekt des 
Rasterzeilen-Interrupts erahnen: Er scheint die Bewegung 
von Objekten aller Art ohne Rucken und Zittern zu ermög¬ 
lichen. Dies wäre von sehr großem Vorteil: Sprites müssen 
nicht mehr überden Bildschirm »wackeln«, und mit ein paar 
Tricks könnte man das oft propagierte Softscrolling errei¬ 
chen. Doch weshalb ist die Bewegung im Rasterzeilen- 
Interrupt so weich? 

Nun, der Rasterzeilen-Interrupt findet regelmäßig statt. 
Da der VIC jede 1/50 Sekunde ein Bild erzeugt, wird jede 
Rasterzeile 50 mal pro Sekunde dargestellt. Wenn nun bei 
diesem Aufruf ein Objekt, und das kann ein Sprite, ein Zei¬ 
chen oder etwas anderes sein, um die gleiche Strecke 
bewegt wird, erfolgt diese Bewegung synchron zum 
Rasterstrahl. Dadurch erscheint sie für uns kontinuierlich 



Sprite- 

transfer 


Routine, die den Wert der unteren 
Rasterzeile in die Y-Koordinate der 
Sprites schreibt 

=> Sprites bewegen sich mit Zeile 


- Neue Zeile ins Rasterregister 

- Sprung nach S EA31 
(Betriebssystem-Routine) 


( Interrupt A 
beenden J 


Bild 10. FluBdiagramm eines gleitenden Übergangs von Hires- zum Testbildschirm 
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und soft. Hier spielt aber noch eine zweiter Grund hinein: 
die Bildfrequenz der menschlichen Kamera, unseres 
Auges also. Pro Sekunde registriert dieses biologische 
Wunderwerk etwa 20 Einzelbilder. Da unser Objekt aber 50 
Einheiten pro Sekunde bewegt wird, und 50 ein Vielfaches 
von 24 ist, haben wir den Eindruck der weichen Positions¬ 
änderung. Diese Eigenschaft können wir uns natürlich 
zunutzemachen. 

Listing 20 ist eine modifizierte Version unseres ersten 
Beispiels, es steuert also ein Sprite im Interrupt. Die Bewe¬ 
gung ist allerdings kontinuierlicher und runder. Die Begrün¬ 
dung ist ebenso einfach wie logisch: Statt des normalen 
Timer-Interrupts, der ja alle 1/60 Sekunde ausgelöst wird, 
haben wir den Rasterzeilen-Interrupt für unsere Routine 
verwendet. Und siehe da, die theoretischen Überlegungen 
von oben haben sich bestätigt: Kein Flimmern, kein 
Rucken, gleich welcher Art. 

Ein zweites, interessantes Beispiel führt uns zum Scrol¬ 
ling. Das Programm, das sich hinter Listing 21 verbirgt, zau¬ 
bert uns eine flotte Laufschrift in die untere Bildschirmzeile. 
Wir verschieben dazu den Inhalt dieser Zeile im 
Rasterzeilen-Interrupt. Schauen Sie sich dazu Bitte Bild 11 
an. Programmtechnisch ist dieser Vorgang wie in Listing 
22, dem Quellcode, zu realisieren: Unser neuer Interrupt 
soll den Bildschirm ja nicht aufteilen, deshalb ist er auch 
nicht zweigeteilt. Wir steigen darum in Zeile 152 gleich voll 
ein und verschieben mit einer Schleife die unterste Text¬ 
zeile. Wollen wir eine andere Zeile scrollen, brauchen wir 
nur den ADRESS-Wert dementsprechend zu definieren. In 
Zeile 160 holen wir dann den nächsten Buchstaben Y- 
indiziert aus der Tabelle, die bei Zeile 176 beginnt und die 
Schrift beinhaltet. Das Y-Register speichern wir in SAVE 
zwischen. Da besagtes Register 1 Byte breit ist, kann 
unsere Laufschrift bis zu 255 Zeichen umfassen. Wenn Sie 
die Buchstaben nachzählen, werden Sie feststellen, daß 
das Programm diese Anzahl voll ausnützt. Unsere 
Interrupt-Routine schließlich endet mit einem Sprung zur 
Tastaturabfrage, wir brauchen uns hier nicht um die näch¬ 
ste Zeile zu kümmern, da der Interrupt ja nur an einer Stelle 
erfolgt. 

Dieses Prinzip ist also noch simpler als die Unterteilung 
des Bildschirmes. Aber erst die Kombination, also Mehrtei¬ 
lung und synchrone Bewegung lassen den Rasterzeilen- 
Interrupt so richtig aufblühen: Wir wär’s mit einem 
4geteilten Bildschirm, über den ruckfrei 14 Sprites bewegt 
werden? Oder mit einer Uhr im Rand, gekoppelt mit einem 
lOfarbigen Rahmen und einer blitzschnellen Laufschrift? 
Und all dies im Interrupt, also quasi nebenher und ohne 
Zeitverlust. Probieren Sie doch mal! Vielleicht finden Sie 
auch ganz neue Anwendungen heraus, denn gerade auf 
diesem Gebiet ist das Spektrum an Möglichkeiten prak¬ 
tisch unerschöpflich. Doch auf eins müssen Sie achten: 
Wenn der Interrupt an einer bestimmten Stelle, einer 
Rasterzeile, ausgelöst wird, bewegt sich der Rasterstrahl 
während der Routine weiter. Wenn das Programm, welches 
den IRQ an dieser Stelle behandelt, zu lange dauert, ist der 
Rasterstrahl vor dem nächsten Interrupt an dieser Stelle. 

Eine Laufschrift im Interrupt 


Das ganze Timing gerät dann durcheinander. Um dies 
möglichst zu vermeiden, merken Sie sich folgende Faust¬ 
regel: 

1 Zeile entspricht etwa 100 Taktzyklen. Um Probleme zu 
vermeiden, Taktzyklen sparen, sparen und nochmals spa¬ 
ren. 

Die Routinen im Rasterzeilen-Interrupt sollen so kurz wie 
möglich sein. Das heißt aber nicht, daß wir uns auf kleine 


Spielereien beschränken müssen. Wenn wir es geschickt 
anstellen, können wir in 1/50 Sekunde sehr viel erreichen. 
Man braucht hier nur das von diversen Spielen her 
bekannte Soft-Scrolling zu erwähnen: In verschiedenen 
Geschwindigkeiten rasen bei URIDIUM die Raumschiffe 
über den Bildschirm, Z zieht eine raumschiffähnliche Ober¬ 
fläche völlig weich unter der Spielfigur durch, weitere Bei¬ 
spiele werden Ihnen sicherlich bekannt sein. All dies erfolgt 
vom Rasterzeilen-Interrupt gesteuert. Da dieses Scrolling 
eine der interessantesten Anwendungen darstellt, werden 
wir uns von jetzt ab damit beschäftigen. 

Was ist eigentlich Scrolling? 


Unter dem Begriff Scrolling versteht man den Effekt, den 
man am besten mit einem Blick aus dem Fenster eines 
niedrig fliegenden Flugzeug vergleichen kann (Bild 12): Wir 
sehen unter uns, für uns heißt das, auf dem Bildschirm, 
einen Ausschnitt einer Landschaft, eines Raumschiffes 
oder etwas ähnlichem. Bewegen wir uns nun in eine Rich¬ 
tung, so bewegt sich der Ausschnitt auf dem Bildschirm in 
die entgegengesetzte. Diese Technik hat zwei Vorteile: 
Zum einen kann man mit dem Scrolling interessante, grafi¬ 
sche Effekte erzeugen. Auf der anderen Seite kann so der 
Aktionsradius eines Spiels erhöht werden: Unsere Land¬ 
schaft, unser Labyrinth oder was auch immer, können 
bedeutend größer als ein Bildschirm sein. Trotzdem kann 
man sich ohne Unterbrechung von einer Stelle zur anderen 
bewegen. 

Zur Vorgehensweise noch eine kurze Anmerkung allge¬ 
meiner Natur: Jede Bewegung kann in eine horizontale und 
eine vertikale Komponente zerlegt werden. Nach rechts 
oben geiangt man beispielsweise, indem man sich zuerst 
nach rechts und dann nach oben - oder umgekehrt - 
begibt. Dieses Prinzip gilt auch für unser Scrollen. Wir wer¬ 
den die Grundprinzipien an der horizontalen Bewegung, 
also in 

X-Richtung, erfahren. Die Bewegung in Y-Richtung erfolgt 
analog dazu, und die Kombination beider Bewegung bietet 
soviele Varianten, Möglichkeiten und nicht zuletzt Pro¬ 
bleme, daß ihre Behandlung Thema eines weiteren Teils 
dieses Kurses sein soll. 

Scrollen kann man prinzipiell auf zwei Arten: Es gibt hier 
das »Hardscrolling« und das »Softscrolling«. Ersteres 



Anfangsadresse der Zeile 

= > Der Inhalf wird um ein Kästchen nach links verschoben 


Bild 11. Wir scrollen eine Bildschirmzeile 


90 


SONDERHEFT 17 

























C64 


GRUNDLAGEN 


erfolgt kästchen- oder zeichenweise, also genau so, wie es 
in einem Basic-Programm normalerweise verwirklicht wird: 
Hat die erste Zeile den Bildschirmrand erreicht, wird der 
Bildschirmspeicher um eine Zeile nach oben verschoben. 
Oder um ein Zeichen nach links, wie es unser Laufschrift- 
Programm zeigte. Diese Methode hat jedoch einen Nach¬ 
teil: Wir können nur entweder rucklig oder extrem schnell 
scrollen. 

Wenn wir ohne Rasterinterupt-Synchronisation scrollen, 
wie das unser Computer mit einem Basic-Listing macht, 
treten unangenehme Ruckei- und Flackereffekte auf. Falls 
wir dagegen synchronisieren, also jede 1/50 Sekunde den 
Bildschirm um ein Zeichen verschieben, erfolgt die Bewe¬ 
gung unheimlich schnell, für die meisten Anwendungen zu 
schnell, wie unser Laufschrift-Programm aus Listing 22 
zeigte. Außerdem ist bei sychronisiertem Hardscrolling nur 
eine Geschwindigkeit möglich. 

Doch um diese Probleme zu umgehen, gibt es das »Soft- 
Scrolling«. Wir verstehen darunter die Verschiebung um die 
kleinstmögliche Einheit, das Pixel. Wenn dies mit dem 
Rasterzeilen-Interrupt gekoppelt geschieht, haben wir eine 
weiche Bewegung, die trotzdem nicht schnell sein muß. 
Noch dazu können wir die Anzahl der Pixel variieren und so 
verschiedene Geschwindigkeiten erreichen. 

Doch wie läßt sich so etwas auf dem C64 verwirklichen? 
Ist dazu etwa Hires-Grafik nötig, oder müssen wir den Zei¬ 
chensatz ändern? Nun, die Antwort bejaht weder die eine 
noch die andere Frage. Wir haben nämlich zwei prima Hel¬ 
fer für das Scrolling im C 64 eingebaut: Die VIC-Register 17 
und 22. Probieren Sie einfach mal folgenden Befehl aus: 

Mit 

POKE 53248+22, PEEK( 53248+22) AND 248 0R WERT 

können wir den Bildschirm um WERT Pixel, der zwischen 
0 und 7 liegen darf, horizontal verschieben. Die Bits 0-2 die¬ 
ses Register repräsentieren also die punktweise Verschie¬ 
bung. Das entsprechende Register für die Vertikale ist 
VIC+17: Ersetzen Sie einfach die beiden 22 durch zwei 17, 
und der Bildschirm wird nach oben beziehungsweise nach 
unten verschoben. In Bild 13 haben Sie die Funktionen der 
zwei Register nochmals zusammengefaßt. 

Wollen wir langsam wieder zur Praxis übergehen. Listing 
23 macht nach dem Starten von der Möglichkeit des 
Feinscrollens Gebrauch und bewegt unsere Laufschrift mit 
einer verringerten Geschwindigkeit, die Sie mit einem 
POKE in 49571 von 1 bis 8 ändern können, über den Bild¬ 
schirm. 

Wie funktioniert dieses Programm? Prinzipiell handelt es 
sich hier um eine Kombination von Soft- und Hardscrollen. 
Das horizontale Verschiebungsregister wird von 7 auf 0 her¬ 
untergezählt. Dadurch wandert der Bildschirm Punkt für 
Punkt nach links. Dann ziehen wir die Schrift um ein Käst¬ 
chen nach, führen also ein Hardscroll aus. Zur gleichen Zeit 
müssen die Bits 0 bis 2 des Scroll-registers wieder auf 7 
gesetzt werden. Hoppla! War da nicht eben ein »zur glei¬ 
chen Zeit« gefallen? Doch wie wir inzwischen wissen, geht 
beim Computer nichts gleichzeitig. Was tun ? 

Nun, die Lösung liegt wie so oft im Rasterzeilen- 
Interrupt: Wir teilen den Bildschirm auf die übliche Weise in 
zwei Teile, die Grenze legen wir an das obere Ende der 
Laufschrift. Im Bereich der Laufschrift scrollen wir soft, der 
Rest des Bildschirms bleibt davon unberührt. Hier ent¬ 
scheiden wir außerdem, ob ein Hardscroll nötig ist und set¬ 
zen ein FLAG. Dieses fragen wir im oberen Teil ab und 
scrollen gegebenenfalls um ein Kästchen. Der Clou der 
Sache ist nun durch die Zeilendarstellung des VIC begrün¬ 
det: Während der Hardscroll ausgeführt wird, befindet sich 
der Rasterstrahl über der entsprechenden Zeile. Wird diese 
nun erreicht, hat das Hardscrolling praktisch unsichtbar 



Wir sehen den Ausschnitt einer Landschaft... 



...und bewegen uns weiter. Für uns bewegt sich 
allerdings die Landschaft, und wir bleiben stehen. 
Diesen Effekt erzeugen wir mit dem Computer. 


Bild 12. Das Grundprinzip des Scrollings 
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stattgefunden, und wenn wir dann das Scroll-Register wie¬ 
der auf 7 stellen, erfolgten diese beiden Vorgänge tatsäch¬ 
lich gleichzeitig. Zum besseren Verständnis dieses Prin¬ 
zips sollten Sie sich auch Bild 14 anschauen. 

Ihnen wird nach soviel Theorie der Kopf sicherlich rau¬ 
chen. Aber so schwierig dieser Zusammenhang theore¬ 
tisch betrachtet ist, so leicht ist er in die Praxis umzusetzen. 
Der Quellcode in Listing 24 gibt uns darüber Auskunft. Ein 
auf die übliche Weise (Zeilen 110-150) zweigeteilter Inter¬ 
rupt ist die Voraussetzung. Im oberen Teil setzen wir die Far¬ 
ben und schreiben einen konstanten Wert in das Scroll- 
Register, damit es hier zu keinem Scrolling kommt. Dann 
fragen wir unser FLAG ab und führen unter Umständen die 
Hardscroll-Routine ab Zeile 207 aus. Interessanter wird’s 
bei Zeile 174: Wir holen hier aus einer Speicherstelle 
(HSOFT) den Wert für das horizontale Scrolling und setzen 
ihn. Eine Schleife verringert dann diese Speicherstelle so 
oft wie in SPEED angegeben. Dabei wird auf einen Unter¬ 
lauf geprüft und je nachdem das Hardscrollflag gesetzt. 
Unseren Interrupt beenden wir schließlich auf die alt¬ 
bekannte Art und Weise. 

Scrolling über einen Großteil 
oes Bildschirms 


Ab Zeile 244 befindet sich eine Minitabelle, die die 
Zwischenspeicher aufnimmt. Neben der Schriftposition 
finden wir hier noch die Geschwindigkeit und sonstige 
Flags. Unser POKE von oben hakte hier ein: Wir haben mit 
ihm einfach den Inhalt der Speicherzelle SPEED verän¬ 
dert, und schon wurde dementsprechend schneller bezie¬ 
hungsweise langsamer gescroilt. Mit diesem kleinen Pro¬ 
gramm haben wir den Grundstein für das Scrollen gelegt. 
Im nächsten Schritt wollen wir es ausbauen. 

Bis jetzt scrollten wir nur eine Zeile. Doch darauf müssen 
wir uns nicht beschränken: Den Beweis dazu liefert das 
Programm aus Listing 25. Nach dem Start präsentiert sich 
Ihnen eine Mondlandschaft, die etwas mehr als die Hälfte 
des Bildschirms einnimmt und nach links über den Bild¬ 
schirm rast. Das Prinzip dieses Programms basiert auf der 
Laufschrift: Allein die Anzahl der zu scrollenden Zeilen wird 
verändert. Dies zieht natürlich eine Neukonzeption des 
Programms nach sich. 

Bild 15 zeigt Ihnen, wie gescroilt wird und wie der Spei¬ 
cher organisiert ist: Bei jedem Hardscrolling werden die 
Zeilen des Bildschirmspeichers um ein Kästchen nach 
links verschoben. Am rechten Rand bleibt ein Zeichen 
übrig, das mit dem entsprechenden Wert aus der Land¬ 
schaft, die zeilenweise im Speicher abgelegt ist, gefüllt 
wird. Dies geschieht für jede Zeile, und so wird die Land¬ 
schaft Spalte für Spalte ins Bild gerückt. 

Die Position der Landschaft läßt sich am X-Wert ablesen. 
Falls dieser den maximalen Wert erreicht hat, die Land¬ 
schaft also einmal durchgescrollt wurde, beginnen wir wie¬ 
der am ersten Punkt. 

Statt der Landschaft können natürlich auch Schrift, ein 
Raumschiff oder etwas anderes gescroilt werden. Man 
bezeichnet den Gesamtbereich, der durchfahren wird, 
auch als »Scrollscreen« (sinngemäß: ein durch Scrolling 
scheinbar vergrößerter Bildschirm) oder »Pseudobild¬ 
schirm«. Je nachdem, wieviel Speicher man ihm zukom¬ 
men läßt, kann er sehr groß werden. 

Wollen wir uns nun die programmtechnische Verwirkli¬ 
chung anschauen. Betrachten Sie dazu am besten Listing 
26, den Quellcode zu unserer Landschaft. Ab Zeile 100 
haben wir eine Menge neuer Variablen eingeführt: Wir 
brauchen neben den Farben und den Rasterzeilen auch 
noch die Zeilen des Bildschirms, die hardgescrollt werden. 


VIC + 17: Scrollen in vertikaler (Y-)Richtung 
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24/25 Zeilen 
Darstellung 
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Vertikale Position 
in Pixel-Werten 

0 < V-Pos <; 7 

VIC + 22: Scrollen in horizontaler (X-)Richtung 
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38/40 Spalten Horizontale Position 
Darstellung in Pixel-Werten 
0 < H-Pos < 7 


Bild 13. Die Fein-Scroll-Register 17 und 22 


Dann p, '>ht hier noch die Ausdehnung des Scrollscreens, in 
unserem Fall also der Landschaft. Weitere Hilfsspeicher 
werden später verwendet. 

Die Prozedur ab Zeile 128 initialisiert den Interrupt und 
ruft ein paar Routinen auf: »ZEICHENSATZ« steht hinten im 
Programm ab Zeile 320 und liest die umdefinierten Zeichen 
für das Gebirge ein. »SCRNCLR« löscht den Bildschirm, 
und »FILL« bringt in Programmzeile 352 ein Streifenmuster 
auf den Bildschirm. Zur »INIT«-Routine werden wir später 
noch kommen. 

Unser Rasterzeilen-Interrupt unterscheidet sich von 
jenem im Laufschriftprogramm nur durch die Rastergren¬ 
zen: Da wir mehr als eine Zeile scrollen wollen, müssen wir 
den Bereich der Höhe des Scrollscreens anpassen. Sonst 
verläuft die Interrupt-Behandlung (Zeile 174 bis 233) völlig 
identisch. Der eigentliche Unterschied liegt bei diesem 
Programm in der Hardscrollroutine, die den Bildschirm bei 
Bedarf um ein Kästchen weiterbewegt. 

Das Kernstück dazu finden wir ab Zeile 285, beim Label 
»SCROLL«. Dieser Programmteil verschiebt die Bild¬ 
schirmzeile, deren Adresse an die Stelle von »DUMMY« 
gesetzt wird, um ein Zeichen nach links. Dazu wird einfach 
eine Schleife hochgezählt. Diese »SCROLL«-Routine wie¬ 
derum wird von einer Schleife aufgerufen, die von Zeile 250 
(»LOOP1«) bis 264 geht. Schauen Sie sich dazu bitte die 
Label »MODIF11«, »MODIF12« und »MODIF13« in den Zei¬ 
len 287, 291 und 307 an: Die Befehle, die hier stehen, ver¬ 
arbeiten alle den Inhalt der Adresse DUMMY, und zwar 
Y-indiziert. Wenn wir nun die Adresse DUMMY an den 
genannten Stellen verändern, können wir den Zugriffsbe¬ 
reich dieser Befehle beeinflussen. Diese Technik des Pro- 
grammierens nennt man auch »selbstmodifizierend«, da 
sich der Code des Programms selbst verändert. 

Genau dies wird von unserer Hauptschleife gemacht: Sie 
lädt aus der Tabelle, die in Zeile 399 beginnt, die LOW- und 
HIGH-Bytes der aktuellen Zeile. Dies wird durch ein Indizie- 
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ren mit dem X-Register, das von der obersten, zu scrollen- 
den Zeile (»HZOBEN«) zur untersten (»HZUNTEN«) herauf¬ 
gezählt wird. Dann rufen wir die Routine zum Verschieben 
einer Zeile auf, kehren zurück und erhöhen das X-Register. 
Falls wir damit noch nicht die letzte Zeile, die gescrollt wer¬ 
den soll, erreicht haben, führen wir die Hauptschleife noch¬ 
mal aus. Damit Sie das Prinzip deutlich vor Augen haben, 
empfiehlt es sich, das Struktogramm in Bild 16 anzu¬ 
schauen. 

Scrollscreen im Speicher 


Doch wie sorgen wir dafür, daß auf dem Bildschirm auch 
unsere Landschaft erscheint? Nun, bei der Laufschrift war 
dies einfach: Im Speicher war der Text abgelegt. Nach 
jedem Hardscrolling haben wir diesen indiziert in die Spei¬ 
cherstelle am rechten Rand der Zeile gebracht. Die Indizie¬ 
rung geschah mit einem I-Byte-Zeiger, folglich konnte die 
Schrift 255 Zeichen lang sein. Unsere Landschaft, der 
Scrollscreen, ist allerdings mehrere Zeilen hoch und 
braucht mehr als 255 Byte. 

Deshalb gehen wir hier anders vor: Wir legen den Scroll¬ 
screen zeilenweise im Speicher ab, das heißt, wie einen 
vergrößerten Bildschirmspeicher. Die Buchstaben ab Zeile 
424 sind nichts anderes als die Landschaft im Video-Code. 
Aus ihnen wird durch den veränderten Zeichensatz ein 
Gebirge. Die Verwaltung des Scrollscreens erfolgt mit 
einem 8-Bit- und einem 16-Bit-Zeiger, XWERT und POIN¬ 
TER. Sie stehen bei Adresse 251 und 252-253 in der Zero¬ 
page. POINTER speichert die Adresse des jeweils aktuel¬ 
len Bytes. Er hilft uns dann ab Zeile 301: Wenn die 39 Zei¬ 
chen einer Bildschirmzeile gescrollt wurden, holen wir aus 
der Speicherstelle, die durch den Pointer bestimmt wird, 
das nächste Byte und schreiben es in die entsprechende 
Position am rechten Bildschirmrand. Dann erhöhen wir bei 


Zeile w9 den Pointer um eine Zeilenbreite, laden also das 
nächste Byte aus einer Zeile tiefer. Durch einen Sprung zur 
großen Hauptschleife beenden wir diese Routine. 

Die Routine, die das nächste Byte bestimmt, wird also 
nach dem Scrolling einer Zeile aufgerufen. Wenn die 
Hauptschleife für jede Zeile durchlaufen wurde, sind wir in 
Zeile 267. Hier benutzen wir den Zeiger XWERT: Er zeigt 
uns die X-Position des Scrollscreens an, wird bei Zeile 242 
zum Pointer addiert und muß mit jeder Bewegung nach 
links um eins erhöht werden: Der Screen soll ja Spalte für 
Spalte durchlaufen werden. Wenn XWERT den XMAX- 
Wert erreicht hat (Zeile 268-69), haben wir die Landschaft 
einmal durchwandert. In diesem Fall setzen wir XWERT 
wieder auf 1 (Zeile 271) und beginnen so von vorne. Dann 
springen wir über die INIT-Routine zurück. 

Was macht nun eigentlich die INIT-Routine? Die Antwort 
ist nicht schwer: Bei jedem Scrolling wird der POINTER ver¬ 
ändert. Da dieser aber bei einem erneuten Aufruf der 
Hardscrollroutine wieder im Originalzustand sein muß, 
machen wir das hier: In Zeile 163 schreiben wir die Adresse 
der linken oberen Ecke des Scrollscreens, dessen erstes 
Byte also, in LOW- und HIGH-Byte des Zeigers. Nach die¬ 
ser Routine sind wir mit dem Hardscrolling fertig und kön¬ 
nen mit RTS (bei Zeile 277, WEITER3) zurückspringen. 
Zusammenfassend verläuft unsere Scrollroutine also so: 

1. Zeile scrollen 

Nächstes Byte per Zeiger bestimmen 
Zeiger um eine Zeile weiter nach unten setzen 

2. Zeile scrollen 
Letzte Zeile scrollen 
XWERT um eins erhöhen 
Pointer initialisieren 

... und zurück 

Schauen Sie sich jetzt doch noch einmal Bild 15 an. Mit 
der jetzt erlangten Hintergrundinformation wird Ihnen das 
Prinzip sicherlich besser verständlich sein! 
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Scrallablaul 
1. 2. a 4, 


39. 40. 



. Anfang-ZEndhöhe 
identisch 


Bild 15. Diesem Schema ist zu entnehmen, wie unsere Mondlandschaft gescrollt wird 



Bild 16. Struktogramm der Hardscrollroutine der Mondlandschaft 

94 BI^EjEEEiEI 


SONDERHEFT 17 


330? 



















































































C64 


GRUNDLAGEN 


Wir wollen uns nun unserem ursprünglichen Ziel zuwen¬ 
den. Um einem Spiel immer näherzukommen, soll unsere 
scrollende Mondlandschaft Stück für Stück verbessert 
werden. Die Bewegung in beide Richtungen soll unser 
erstes Ziel sein. Dazu werden wir den Joystick brauchen, 
und als nächsten Schritt werden wir beschleunigt scrollen. 
Die Krönung wird schließlich ein Scrolling mit interessan¬ 
tem 3-D-Effekt sein. 

Die einzelnen Schritte, welche dazu führen, sollten von 
Ihnen aufmerksam verfolgt und nachvollzogen werden. So 
werden Sie mit der Materie immer vertrauter und können 
das Programm dann Ihren Wünschen anpassen, verbes¬ 
sern und nach Lust und Laune ein vollständig neues Pro¬ 
jekt, basierend auf Ihren erworbenen Kenntnissen, entwer¬ 
fen. Vielleicht entsteht ja so ein interessantes Spiel, eine 
schöne Demografik oder Sie kommen zu einem völlig 
neuen Ergebnis. 

Tasten wir uns also langsam vor: Geben Sie einfach 
Listing 27 ein. Nach dem Programmstart läuft unsere Land¬ 
schaft wie üblich über den Bildschirm. Dies ändert sich 
jedoch, wenn Sie den Joystick in Port 2 nach rechts bezie¬ 
hungsweise links bewegen. Wir können so die Richtung 
des Scrollings beeinflussen. Bewegen wir ihn nach links, 
kommt unsere Landschaft von links, wird er nach rechts 
gedrückt, erfolgt das Scrolling von rechts. Unsere Land¬ 
schaft folgt dem Joystick, und zwar in die jeweils entgegen¬ 
gesetzte Richtung. Wie wird diese Änderung programm¬ 
technisch realisiert? Daß hinter dem Programm eine 
Abfrage des Joysticks steht, dürfte Ihnen logisch erschei¬ 
nen. Je nach Joystickbewegung verändern wir den Code 
der Scrollroutine. Wie muß dies aber geschehen? 

Nun, erinnern wir uns zur Beantwortung dieser Frage an 
das Grundprinzip des Scrolling: es wird pixelweise ge- 
scrollt. Dazu zählen wir das Scroll-Register im Videochip 
herunter. Haben wir uns um 7 Pixel bewegt, initialisieren wir 
das Scroll-Register, ziehen den Bildschirminhalt um ein 
Kästchen nach und beginnen von vorne. Dies kann natür¬ 
lich in beide Richtungen erfolgen: Bis jetzt haben wir immer 
nach links gescrollt, und im Falle einer Bewegung nach 
rechts müssen wir eben das Scroll-Register erhöhen statt 
erniedrigen. Außerdem muß der Hardscroll einer Zeile wie 
in Bild 17 ausgeführt werden. Die Scrollschleife wird also 
»rückwärts« durchlaufen. 

In Listing 28 sehen Sieden Quelltext der Joystickabfrage. 
Sie wird im oberen Teil des Interrupts aufgerufen. Zuerst 
überprüfen wir, ob eine Richtungsänderung zulässig ist. 
Wir dürfen dies nämlich nur tun, wenn das Scroll-Register 
nicht kurz vorm Überschreiten der Grenze steht und folg¬ 
lich im nächsten Schritt ein Hardscroll zu erwarten wäre. In 
diesem Fall käme es zu einem starken Ruck, der die Bewe¬ 
gung unansehnlich machen würde. 

Sind diese Bedingungen erfüllt, holen wir ab Zeile 272 
die Richtungen des Joysticks über die altbekannte ROR- 
Methode und verzweigen dementsprechend. Andernfalls, 
oder wenn der Joystick in horizontaler Richtung gar nicht 
gedrückt wurde, springen wir bei »WEITERE« zurück. 

Interessant wird’s bei einer Verzweigung: Je nach Joy¬ 
stickdruck erfolgt ein Sprung zur Modifizierungsroutine 
»RECHTSMOVE« oder »LINKSMOVE«. Diese beiden Pro¬ 
grammteile verändern den Code durch Modifikation so, daß 
das nächste Scrolling in die zur Joystickbewegung entge¬ 
gengesetzte Richtung erfolgt. 

Mit »NACHLINKS« fangen wir an. Wir müssen unseren 
Code für drei Teilbereiche ändern: Soft- und Hardscrolling 
müssen von rechts erfolgen, und der XWERT des Scroll- 
screens muß erhöht werden. Dies ist für die korrekte Ver¬ 
waltung des Pseudobildschirms wichtig. Bei Zeile 299 
geht’s dann los: Zuerst setzen wir ein Flag für die Bewe¬ 
gung, bei einer Bewegung nach rechts wäre dies gelöscht. 


Wir werden dies Flag im weiteren des öfteren brauchen. 
Dann schreiben wir die Softscroll-Routine um: Da wir nach 
links scrollen, setzen wir ein DEC, zum Erniedrigen. Die 
Werte beim Überschreiten ($07/$FF) müssen ebenfalls 
angepaßt werden. Und so sieht die Softscrollroutine nach 
den Veränderungen aus: 


L00PA 

DEC 

HSOFT 


LDA 

HSOFT 

M0DIFA2 

CMP 

#$07 


BNE 

WEITERA 


LDX 

#$01 


STX 

FLAG1 

M0DIFA3 

LDX 

# $FF 


STX 

VSOFT 


Dann passen wir die Behandlung des X-Wertes, der ja 
zur Verwaltung des Scrollscreens dient, an. Dies geschieht 
ab Zeile 311. Da es sich um eine Bewegung nach links han¬ 
delt, muß er nach jedem Hardscroll erhöht werden. Auch 
die Grenzwerte liegen anders als bei der Rechtsbewegung. 
Im nächsten Schritt (Zeile 323) verändern wir die Routine, 
die eine einzelne Zeile hardscrollt. Dazu tauschen wir ein¬ 
fach die DEY- und INY-Befehle sowie die Schleifenzähler 
aus. Durch diese Operation erfolgt der Hardscroll wie in 
Bild 17 gezeigt. 

Zu guter Letzt (Zeile 336) müssen wir noch den XWERT 
um 41 erhöhen, da das nächste Byte nun ja von rechts her¬ 
eingeholt wird. Folglich liegt er um eine Bildschirmbreite 
weiter in X-Richtung. Dies darf allerdings nur erfolgen, 
wenn ein echter Richtungswechsel durchgeführt wird, und 
nicht, wenn der Joystick einfach weiterhin zur selben Seite 
gedrückt bleibt. Diesen Sachverhalt zeigen uns zwei Flags 
(3 und •) an. Und schon sind wir am Ende der Routine, die 
»NACHLINKS« modifiziert. Sie wird bei »WEITERI« mit 
einem RTS verlassen. 

Dies war eine der zwei Veränderungsroutinen. Sie wurde 
bei einem Joystickdruck nach rechts angesprungen. 
Andernfalls hat der Computer zum Programmteil bei Zeile 
380 verzweigt. Wir ändern hier in analoger Weise, also wie¬ 
der durch Modifizieren der einzelnen Speicherstellen, den 
Code. Allerdings erstellen wir sämtliche Routinen so, daß 
ein Scrolling nach links ausgeführt wird. Dann springen wir 
ebenfalls zurück. Bis jetzt erhielten Sie von mir immer die 
Angabe, der Code werde dementsprechend modifiziert. 

Beschleunigtes Scrolling 


Falls Sie sich nun genauer dafür interessieren, was denn 
eigentlich und wie dies verändert wird, sollten Sie einen 
Bleistift zur Hand nehmen und Listing 29 betrachten. Hier 
steht die Hardscrollroutine mit den einzelnen »MODIFY«- 
Labels. Setzen Sie nun an die jeweilige Stelle die entspre¬ 
chenden Werte und Befehle, genauso wie es unsere Modifi¬ 
zierungsroutine tun würde. Dann können Sie die Struktur 
der Scrollroutine analysieren. Wie oben bereits erwähnt, 
sind wir jetzt am Ende der Joystickabfrage. Nehmen Sie 
ruhig nochmal den Joystick zur Hand, starten Listing 27 
und spielen damit ein wenig: Ändern Sie zum Beispiel lau¬ 
fend die Scrollrichtung, indem Sie den Joystick wie bei 
einem Sportspiel wie DECATHLON schütteln. Dies geht 
recht flott vonstatten. Doch eines müßte Ihnen eigentlich 
auffallen: Der Richtungswechsel erfolgt sehr plötzlich. 
Dadurch ergibt sich ein Rucken, das die Harmonie unserer 
weichen Bewegung auf unschöne Weise stört. Die Erklä¬ 
rung dafür ist einleuchtend: Wir fallen ohne jeden Brems¬ 
beziehungsweise Beschleunigungsvorgang von einem 
Extrem ins andere. Dies ist aber unrealistisch und ebenso 
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unnatürlich. Stellen Sie sich nur einmal ein Raumschiff auf 
seinem Flug im Weltraum vor: Wenn dies umkehrt, wird es 
zuerst immer langsamer, bis dann die Richtung dreht und 
die Geschwindigkeit wieder größer wird. Dieser Effekt läßt 
die Richtungsänderung sehr weich aussehen und soll nun 
von uns nachgeahmt werden. Listing 30 ermöglicht eine 
träge Steuerung unserer Landschaft. Eine Umkehr erfolgt 
hier wie abgefedert. Wir erreichen dies, indem wir bei einer 
Joystickbewegung die Geschwindigkeit in oben angespro¬ 
chener Weise ändern. Wer von Ihnen genauer wissen will, 
warum die Bewegung dann so weich aussieht, sollte sich 
Bild 18 anschauen: Hier werden die mathematischen und 
physikalischen Grundlagen der gleichmäßig beschleunig¬ 
ten Bewegung erläutert und hergeleitet. Und eine gleich¬ 
mäßig beschleunigte Bewegung erscheint unserem Auge 
als weich und harmonisch, noch dazu, wenn sie mit seiner 
Frequenz (Sie erinnern sich an das gleichmäßige Auftreten 
des Rasterzeilen-Interrupts) synchronisiert wird. 

Doch wie haben wir das im Programm verwirklicht? Nun, 
dazu wurde unsere Joystickabfrage von oben einfach um 
ein Stück erweitert. Stimmt die Bewegung mit der momen¬ 
tanen Scrollrichtung überein, wird die Geschwindigkeit bis 
zu einer Höchstgrenze vergrößert. Erfolgte die Joystick¬ 
bewegung entgegengesetzt, verringern wir erst die 
Geschwindigkeit und wechseln bei Erreichen des Minimal¬ 
wertes die Scrollrichtung. Schauen Sie sich die software¬ 
mäßige Realisierung bitte in Listing 30 an. Bei der Erweite¬ 
rung sind ein paar Variablen und Speicherstellen dazu¬ 
gekommen, deren Definitionen Sie zu Beginn des Listings 
sehen. Im eigentlichen Programm erledigt der Computer 
vor den Modifizierungsroutinen (»NACHLINKS« bei 334 
und »NACHRECHTS« bei 446) noch ein paar Aufgaben. 
Diese wollen wir uns genauer anschauen. Betrachten Sie 
neben dem Quellcode bitte auch das Struktogramm in Bild 
19. Zu Beginn, von Zeile 264 bis zu Zeile 279, überprüfen wir 
wieder, ob wir uns in einem kritischen Bereich befinden und 
so die Richtung nicht ändern können. Ist dies der Fall, 
springen wir zurück. Andernfalls fragen wir in Zeile 282 den 
Joystick ab. Bei positivem Ausgang wird zum entsprechen¬ 
den Programmteil gesprungen. Hier liegt nun die eigent¬ 
liche Innovation. Schauen wir uns dazu die Routine an, die 
einen Joystickdruck nach links behandelt und so den den 
Bildschirm nach rechts bewegt (Sie erinnern sich: Wir scrol- 
len entgegen der Joystickrichtung, da wir still stehen und 
sich die Landschaft quasi an uns vorbeibewegt). Nehmen 
wir an, der Joystick steht rechts. Wir sind nun bei »RECHTS- 
TRAEGE« in Zeile 298. Durch das Herunterzählen von 


VERZR unterdrücken wir die Geschwindigkeitsänderung 
so lange, bis hier der Wert 0 erreicht wird. Dann laden wir 
VERZR mit ZEIT und springen zur eigentlichen Bewegung. 
Indem wir ZEIT verändern, können wir also die Trägheit 
unseres Bildschirmes bestimmen. Setzen wir hierfür einen 
großen Wert, nimmt die Richtungsumkehr dementspre¬ 
chend mehr Zeit in Anspruch. Ist VERVZ dann auf 0, fahren 
wir fort. In einer Abfrage wird die momentane Scrollrich¬ 
tung festgestellt. Ist diese dem Joystickdruck entgegenge¬ 
setzt, erhöhen wir die Geschwindigkeit bis zu einem Maxi¬ 
mum. Dies geschieht in den Zeilen 309 bis 312. War die Joy¬ 
stickrichtung dagegen der Scrollrichtung gleich, ist es Zeit 
für eine Richtungsänderung. Dazu wird erst die Geschwin¬ 
digkeit Stück für Stückt verringert, und wenn diese dann 
einen von uns zu bestimmenden Minimalwert erreicht hat, 
geht es zur eigentlichen Modifizierungsroutine, die uns ja 
aus dem obigen Programm bekannt ist. Umgekehrt verfah¬ 
ren wir bei einer Joystickbewegung in die andere Richtung. 
In diesem Fall springt die Joystickabfrage eben nicht nach 
»RECHTSTRAEG« und verfährt wie eben besprochen, son¬ 
dern veranlaßt den Computer dazu, seine Arbeit bei 
»LINKSTRAEG« fortzusetzen. Diese Routine , die bei Zeile 
410 beginnt und mit Zeile 433 endet, arbeitet analog, nur 
invertiert sie die Richtungen: Aus einem »rechts« wird ein 
»links« und umgekehrt. 

Räumliche Tiefe durch Sprites 


Ja, und durch diesen Schritt sind wir unserem Ziel, dem 
perfekten Scrolling, wieder ein Stück nähergekommen. 
Der Bewegungsübergang erfolgt nun soft. Sie können 
diese Routine ja durch eine bessere Grafik und einen län¬ 
geren Bildschirm aufbessern, einige Sprites dazupacken, 
und schon ist der Grundstein für ein Spiel gelegt. Dies soll 
allerdings Ihrer Phantasie überlassen bleiben, denn wir 
können noch mehr. Im nächsten Schritt soll durch die Ver¬ 
wendung von Sprites, die sich mit verschiedener 
Geschwindigkeit bewegen, ein verblüffend räumlicher 
Effekt erzielt werden. 

Starten Sie zuerst einmal das Programm aus Listing 32. 
Unsere Landschaft hat anscheinend räumliche Tiefe erhal¬ 
ten: Während sich in der Mitte des Bildschirms weiterhin 
unsere Landschaft befindet, fährt vorne eine Reihe Bäume 
durch. Im Hintergrund ziehen zwei Säulen vorbei, und 
durch die verschiedenen Geschwindigkeiten der Objekte 
entsteht ein perspektivischer Eindruck. Außerdem kön : 


nach links. .und nach rechts 

1. 2. 3. 39 39.' . . 3. 2. 1 




Bild 17. Prinzip des Hardscrollens in beider Richtungen 
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nen Sie ein Ufo über den Bildschirm steuern. Der plasti¬ 
sche Eindruck unserer Scrollscreens basiert auf der 
geschickten Verwendung von Sprites. Da wir uns durch 
den Rasterzeilen-Interrupt beliebig viele Vertreter dieser 
Spezies schaffen können, verwenden wir eben sieben Spri¬ 
tes für die Hintergrundgestaltung. Dazu sind natürlich 
einige Erweiterungen unseres Scrollprogrammes nötig. 
Sind diese durchgeführt und erklärt worden, können wir die 
Fertigstellung unseres Scrollprogramms feiern. Die Ver¬ 
sion, die Sie momentan über den Bildschirm scrollen 
sehen, ist sehr ausgereift. Eventuelle Verbesserungen, 
vielleicht bezüglich der Grafik, sollen Ihnen überlassen 
bleiben. Wir werden uns deshalb bald einer neuen Anwen¬ 
dung des Softscrollings zuwenden. 

Doch schauen Sie sich jetzt bitte Listing 33, den Quell- 
code zu unserem Scrollprogramm an. Hier finden Sie ihn 
in seiner vollen Länge (auf die Byte-Werte für den Zeichen¬ 
satz, den Scrollscreen und die Sprites können wir getrost 
verzichten). Die einzelnen, uns bekannten Erweiterungen 
finden hier ebenso ihren Platz wie das Grundprogramm 
aus Listing 26 (unser Scrolling bewegte sich damals nur mit 
einer Geschwindigkeit in eine Richtung). Allein, was uns 
interessiert, sind die Erweiterungen für die Sprites, auch 
sie sind hier zu sehen. 

Die prinzipielle Funktionsweise der Sprite-Bewegung ist 
ja schon bei Ablauf der Mondlandschaft ersichtlich: Die 
Sprites bewegen sich mit einer bestimmten Geschwindig¬ 
keit über den Bildschirm. Diese hängt mit dem Scrollscreen 
zusammen: Je schneller dieser über den Bildschirm fließt, 
desto flotter folgen die Sprites. Umgekehrt bewegen sich 
diese bei einer Geschwindigkeitsverringerung ebenfalls 
langsamer. Da die Spritebewegung genausooft erfolgt wie 
das Scrolling, muß sie ebenfalls im Interrupt erzeugt wer¬ 
den. Um dies zu erreichen, springen wir direkt nach der 
Joystickabfrage für den Scrollscreen, im oberen Teil also, 
(siehe Zeile 231) die Routine »SPRITESMOVE« an. In Zeile 
658 fängt sie an. Zuerst kommt es zu einer auf den ersten 


Blick seltsamen Abfrage. Doch diese ist durchaus sinnvoll: 
Um eine ruckende Richtungsänderung der Sprites zu ver¬ 
meiden, wird bei einer Umkehrung der Scrollbewegung, 
was ja in den uns bekannten Modifizierungsroutinen (ab 
Zeile 346 nach links, bei Zeile 461 nach rechts) geschieht, 
ein Flag (»NOSPRITE«) gesetzt. Da dies von uns abgefragt 
wird, werden die Sprites nur bei einer kontinuierlich in die 
selbe Richtung gehenden Scrollbewegung bewegt. 

Entwickeln Sie doch weiter! 


Ist diese Bedingung nicht erfüllt, springen wir mit RTS 
zurück. Andernfalls geht's bei »WEITERB« weiter. Unsere 
Bewegungsroutine ist in zwei Durchgänge aufgeteilt: 
Zuerst bewegen wir die Bäume im Vordergrund und dann 
die Säulen im Hintergrund. Als Zähler für unsere Bewe¬ 
gung soll das Y-Register dienen, das X-Register enthält 
jeweils den doppelten Wert davon und hilft uns beim Adres¬ 
sieren der einzelnen Register im VIC. 

Zuerst holen wir die momentane Geschwindigkeit des 
Scrollscreens aus FLAG2. Da die Bäume schneller als der 
Hintergrund laufen, wird diese um 2 erhöht (Zeilen 671-674) 
und im Geschwindigkeitsregister für die Sprites, »SPRITE- 
SPEED«, gespeichert. Bei ALOOP4 läuft die eigentliche 
Bewegung ab. Durch eine Addition des Inhalts von 
»SPRITESPEED« zur aktuellen X-Koordinate bewegen wir 
den Sprite nach rechts. Soll es sich um Bewegung nach 
links handeln, muß hier subtrahiert werden. Dies geschieht 
wieder durch Code-Modifikation. Doch dazu später. In Zeile 
681 fragen wir dann ab, ob es zu einem Überlauf gekom¬ 
men ist. In diesem Fall hat unser Sprite den X-Wert 255 
überschritten, es muß also das entsprechend Bit im VIC- 
Ubertrcgungsregister gesetzt werden. Dies wird durch 
einen Sprung zur Routine »GROESSER« (Zeile 730) erle¬ 
digt. Dann zählen wir das X- und Y-Register herunter und 
führen unsere Schleife nochmal aus. Diesmal wird aller- 



Bild 18. Herleitung der Geschwindigkeitserhöhung bei einer gleichmäßig beschleunigten Bewegung 
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Bild 19/1. Joystickabfrage mit Beschleunigung 
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dings die X-Koordinate eines anderen Sprites verändert. 
Unsere Schleife endet schließlich zum ersten Mal, wenn 
die Baumreihe, also die ersten vier Sprites, vollständig 
bewegt wurde. Dann sind wir bei Zeile 689. Nun bereiten wir 
einige Register für den zweiten Durchgang, die Bewegung 
der Säulen, vor. Dazu müssen Durchgangszähler, SPRITE- 
SPEED und der Vergleichswert sowie X- und Y-Register 
angepaßt werden. (Siehe Zeile 699 bis 706). Dann führen 
wir den zweiten Durchgang aus und bewegen so die Säu¬ 
len. Schließlich befinden wir uns beim Label WF in Zeile 
710. Hier wird noch die X-Koordinate von Sprite 7 mit Über¬ 
lauf in die jeweiligen Register von Sprite 5 gebracht. Dies 
bewegt die Sprites 5 und 7 gleichförmig. Dadurch erreichen 
wir, daß eine der zwei Säulen doppelt so hoch ist. 

Dann sind wir am Ende der »SPRITEMOVE«-Routine, die 
mit dem üblichen RTS (Zeile 724) verlassen wird. Und 
schon haben sich unsere Sprites in der entsprechenden 
Richtung bewegt. Diese kann aber nach rechts oder nach 
links gerichtet sein und ändert sich bei Aufruf der MODIFY- 
Routinen. Um dies zu berücksichtigen, müssen wir eben 
auch unsere Spritebewegungs-Routine verändern. Dies 
geschieht bei »SPRITECHANGEL« und »SPRITECHAN- 
GER« und wird mit jeder Modify-Routine aufgerufen (Zeile 


414 und Zeile 524). Bei Zeile 528 werden einfach die ent¬ 
sprechenden Codes und Werte hinter die jeweiligen Label 
gebracht: Aus einem Addieren wird ein Subtrahieren, die 
Verzweigungen erfolgen bei unterschiedlichen Bedingun¬ 
gen, und der Wert beim Über- und Unterschreiten des Wer¬ 
tes 255 muß ebenfalls angepaßt werden. 

Somit ist der größte Teil der Änderungen besprochen. 
Eine Routine, welche die Sprite-Daten einliest und deren 
Parameter einstellt, wird zu Beginn aufgerufen (Zeile 169). 
Sie heißt »SPRITESINIT« und beginnt bei Zeile 861. Des 
weiteren schreiben wir die Tabelle mit den Hilfsspeicher¬ 
stellen mit den Anfangswerten voll. Die Routine »UFO¬ 
SPRITE« wird bei jedem unteren Interrupt aufgerufen und 
bewegt unser Sprite 4, die Untertasse, entsprechend der 
vertikalen Bewegung des Joysticks. 

Und schon sind die neuen Routinen erklärt. Unser Scroll- 
programm dürfte Ihnen jetzt vollständig bekannt sein. 
Erweitern und Verbessern Sie es! Entwerfen Sie Action- 
Spiele oder Grafikdemos! Wenn Sie es dabei zu respekta¬ 
blen Ergebnissen bringen, können Sie diese ja an die 64’er- 
Redaktion schicken. Bei guten Ergebnissen besteht durch¬ 
aus die Chance zur Veröffentlichung. 

Damit Sie wissen, was unser Programm erlaubt und was 



Bild 19/11. Joystickabfrage mit Beschleunigung 
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nicht, zeigt Ihnen Bild 20 dessen Speicherbelegung sowie 
ein Struktogramm. Mit diesen Angaben sollten Sie in der 
Lage sein, eigene Routinen einzubinden und so das Pro¬ 
gramm zu erweitern. Also, machen Sie sich auf! Wir warten 
schon auf die herrlichen Raumschiffe, Städte und Land¬ 
schaften, die Ihre Kreativität an den Tag bringt. 

Schrift im Laufschritt 


Doch nun soll Zeit für ein anderes Thema sein. Demos und 
Spiele, die Laufschriften verwenden, sind in allen Varianten 
erhältlich. Diese Schriften kann man auf verschiedenste 
Art gestalten, auch wir haben im früheren Verlauf dieses 
Kurses zwei einfache Varianten erstellt. Es gibt allerdings 
noch viel mehr Möglichkeiten, einen Text den Bildschirm 
entlanglaufen zu lassen, sei es schnell oder langsam, groß 
oder klein, farbig oder bunt, im Rand oder nicht. 

Einige interessante Varianten werden wir uns im folgen¬ 
den anschauen. Daß dabei der Rasterzeilen-Interrupt wie¬ 
der eine wesentliche Rolle zugeteilt bekommt, versteht sich 
von selbst. Wir werden bei dieser Gelegenheit auch einige 
der mittlerweile altbekannten Techniken anders verwen¬ 
den. Sie werden sehen, daß man aus ein und derselben 
Grundidee zu völlig verschiedenen Ergebnissen kommen 
kann. Dies soll natürlich auch als Anregung für Sie verstan¬ 
den sein. Wer weiß, vielleicht lockt ja bald jemand aus dem 
C64 eine höhere Auflösung heraus? Was der Rasterzeilen- 
Interrupt bis jetzt alles möglich machte, reicht vom mehr¬ 
fach geteilten Bildschirm über das Softscrolling bis zum 
vergrößerten Screen. Durch geschicktes Timing der Takte 
seines Programms brachte es ein cleverer Programmierer 
kürzlich sogar zu einer Routine, die nicht nur oben und 
unten, sondern auch rechts und links Sprites darstellt. So 
kann man das ganze Bild mit Grafik füllen. Doch dies soll 
nur ein Beispiel sein, was mit dem Rasterzeilen-Interrupt 
noch so alles möglich ist und sein wird. 

Wir wollen uns nun noch einem Scrolltrick zuwenden. 
Listing 34 sorgt dafür, daß eine Laufschrift aus großen, 
wohlgeformten Buchstaben in gewohnter Softscroll-Manier 
über den unteren Teil des Bildschirms läuft. Bitte geben Sie 
es zusammen mit Listing 35, dem Zeichensatz ein, und 
starten es. Die Schrift glänzt zwar nicht durch inhaltliche 
Blüten, doch dies können Sie verändern: Geben Sie dazu 
bitte den kleinen Editor aus Listing 36 ein. Er fragt nun nach 
Text, den Sie eingeben können. Da der INPUT-Befehl, der 
hier zwecks der Einfachheit verwendet wurde, nur 80 Zei¬ 
chen akzeptiert, müssen Sie danach jeweils ein 
< RETURN > drücken. Dann werden Sie nach weiteren 
Zeilen gefragt. Beachten Sie hierbei allerdings, daß nur 
Buchstaben von A-Z und Leerzeichen verwenden dürfen. 
Dieses Manko liegt nicht am Programm für die Laufschrift, 
sondern am Editor. 

Nun bewegt sich also eine große Laufschrift über den 
Bildschirm. Aber haben wir so etwas Ähnliches nicht schon 
einmal gehabt? War unsere Mondlandschaft nicht das¬ 
selbe in Grün? Nun, prinzipiell ja: Auch hier wird durch eine 
Kombination von Hard- und Softscrolling ein weicher Bewe¬ 
gungseffekt quer über den Bildschirm erzeugt. Interessant 
ist allerdings, wieviel wir hier scrollen. Unser Scrollscreen 
scheint über eine sehr große Ausdehnung zu verfügen, da 
der Text ewig lang werden kann. Doch auch der Speicher 
unseres Computers ist begrenzt. Da jeder Buchstabe 5 Zei¬ 
chen hoch und im Mittel auch 5 Zeichen breit ist, belegt er 
im Durchschnitt 25 Zeichen. Schon bei einem Text von 1000 
Zeichen, und das ist genau der Inhalt einer Bildschirmseite, 
müßten so 25 KByte an Speicher aufgewandt werden. Und 
das ist eindeutig zu viel. Deshalb greifen wir hier zu einem 
Trick. Schauen wir uns einmal an, was eigentlich gescrollt 


wird. Da wir über 26 Buchstaben und ein Leerzeichen ver¬ 
fügen, haben wir insgesamt 27 Grundelemente. Diese blei¬ 
ben in ihrer Form erhalten, ein A sieht eben immer wie ein 
A aus. Hier werden wir nun ansetzen. Grob gesagt, erstel¬ 
len wir für jeden Buchstaben das Muster nur einmal. 
Dadurch entsteht ein Platzbedarf von 800 Byte. Wenn nun 
ein Buchstabe dargestellt werden soll, holen wir uns ein¬ 
fach das entsprechende Muster. Dies wird wiederum durch 
den aktuellen Buchstaben im Text bestimmt, der aber nur- 
ein Byte Speicher braucht (statt 25 Byte mit der alten 
Methode!). Wir sparen uns also eine Menge Speicher und 
können folglich längeren Text unterbringen. Außerdem 
bleibt noch Platz für Grafik und Musik. 

Diese Methode hat noch einen weiteren Vorteil: Wenn die 
Tabelle für die Muster einmal steht, können wir den Text der 
Laufschrift einfach Buchstabe für Buchstabe eingeben. 

Wie verwirklichen wir dies softwaremäßig? Nun, prinzi¬ 
piell wird dazu eine Tabelle mit den Mustern der Buchsta¬ 
ben nötig sein. Diese legen wir im Speicher ab und greifen 
bei Bedarf darauf zu. Der restliche Teil des Programms wird 
sich von unseren anderen Scrollprogrammen nicht wesent¬ 
lich unterscheiden. Betrachten wir dazu den Aufbau der 
großen Buchstaben, wie er in Bild 21 ersichtlich ist. Als Ver¬ 
treter sehen Sie hier das »B« und das »T«. Achten sie nun auf 
die Abmessungen: Die Höhe ist bei beiden gleich, was übri¬ 
gens bei jedem Buchstaben unseres neuen Alphabets der 
Fall ist. Nur in der Breite, das ist die Ausdehnung in 
X-Richtung, differieren sie. Auch die einzelnen Video- 
Codes sind aus logisch ersichtlichen Gründen anders. Mit 
diesen Angaben können wir nun eine Tabelle wie in Bild 22 
kreieren: Die einzelnen Muster der Buchstaben werden 
quergelegt und hintereinander in den Speicher geschrie¬ 
ben. Auf diese Tabelle kann nun bequem zugegriffen wer¬ 
den. Ci'js geschieht wieder über einige Zeiger und Hilfs¬ 
tabeilen. Werfen wir nun einen Blick auf Listing 37, den 
Quellcode für unsere überdimensionale Laufschrift. Die 
Grundstruktur ist derjenigen unserer Mondlandschaft nicht 
unähnlich: Zu Beginn (Zeile 120-152) initialisieren wir wie¬ 
der einen zweigeteilten Rasterzeilen-Interrupt. Schauen 
Sie sich dessen Aufteilung bitte in Bild 23 an. Die Grenzen 
liegen knapp über oder unter unserer Schrift, die gescrollt 
wird. Im oberen Teil des Interrupts (das heißt im Bereich 
unserer Laufschrift) scrollen wir soft und schalten auf einen 
neuen Zeichensatz um. Dann springen wir zurück. Unten 
(unter unserer Laufschrift) stellen wir bereits wieder auf den 
normalen Zeichensatz um. Wenn der Rasterstrahl dann an 
den oberen Bildschirmrand kommt, ist dieser auf alle Fälle 
aktiviert. Dann führen wir gegebenenfalls die Hardscroll- 
routine aus. Sind die Bedingungen dafür nicht vorhanden, 
springen wir auch hier zurück. 

Unsere Hardscrollroutine finden wir ab Zeile 224 wieder. 
Sie sorgt dafür, daß von der Zeile HZOBEN bis HZUNTEN 
gescrollt wird. Diese sind so gewählt worden, daß genau 
der Bereich mit der Laufschrift verschoben wird. 

Die Behandlung des Nachschubs finden wir in einer 
wesentlich kürzeren Version vor. Hier wird immer das selbe 
Muster, das ab ANFANG liegt, in die Spalte am rechten Bild¬ 
schirmrand gebracht. In der Theorie ist unser Scrollscreen 
also nur eine Spalte breit. Praktisch sieht dies natürlich 
anders aus, sonst würden ja keine Buchstaben über den 
Bildschirm laufen. Schauen Sie sich dazu bitte Zeile 224 
an: Es erfolgt ein Sprung zur DECODE Routine. Hier liegt 
nun der Schlüssel des Problems: Dieser Programmteil holt 
die nächste Spalte des aktuellen Buchstabens im Text an 
die Stelle ANFANG. Da unsere Hardscrollroutine hieraus 
unseren Nachschub holt, scrollen wir anstatt des ständig 
gleichen Inhalts jedesmal etwas Neues. Dies wird von 
unserer DECODE-Routine so gewählt, daß auf dem Bild¬ 
schirm eine Laufschrift erscheint. 
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GRUNDLAGEN 


Speicherbelegung 



Bild¬ 

schirm 


Zeichen- $3200-$3300 
satz Sprites 


Quellcode 33 

Grobstruktur (Programmzeile) 


Initialisierung 


IRQ-Teil 


Abfragen und 
Modifikation 


Scrollen und 

bewegen 


INIT-Routinen 


Tabellen 


Grafik-Werte 


140-190 
191-260 
261-563 |_. aktiver 
Teil» 

564-779 


780-962 ‘ 
963-1015 


1016-1190 


-»passiver 
Teil. 


Programm 

$COOO-$C48A 

Tabl 

$C48B-$C4E0 




Bild 20. Speicherbelegung und Grobstruktur unserer 3D-Mondlandschaft 


Sie beginnt bei Zeile 301 und ist das Kernstück des Pro¬ 
gramms, denn durch sie wird der Text der Laufschrift in die 
entsprechenden Muster am Bildschirm verwandelt. Dazu 
werden, wie gesagt, einige Tabellen gebraucht. Sie stehen 
ab Zeile 468 und bestehen aus den Anfangsadressen der 
Buchstaben, den Mustern der Buchstaben selbst und aus 
deren Länge. Schauen Sie sich diese bitte an. DECODE 
holt nun bei jedem Aufruf die nächste Spalte des aktuellen 
Buchstabens und schreibt sie nach ANFANG, wo diese 
dann von der Hardscrollroutine auf den Bildschirm 
gebracht wird. Dazu werden einige Zeiger benötigt: In 
BUCHSTABEN steht der momentane Wert aus dem Text. 
Durch ihn wird aus der BUCHSTABENLOW- beziehungs¬ 
weise BUCHSTABENHIGH-Tabelle (Zeile 468 bis 539) die 
Anfangsadresse des jeweiligen Buchstabenmusters ge¬ 
holt. Vorher wurde bei FINEPOSITION die aktuelle Spalte, 
die in OFFSET steht, mit der Höhe eines Buchstabens (in 
unserem Fall 6) multipliziert und nach POSITION geschrie¬ 
ben. Dieser Wert wird nun zur Anfangsadresse addiert 
(308), und die Summe daraus wird in ADRESSE/ADRES- 
SE+1 gespeichert. Bei ADRESSE handelt es sich nach 
diesen umfangreichen Berechnungen um einen Zeiger in 
der Zeropage, der auf die Adresse der nächsten Spalte des 
Buchstabens zeigt. Dann wird mit einer kleinen Schleife 
(320 bis 327) eben diese nach ANFANG geschrieben. 
Damit sind wir mit dem Übertragen fertig. 

Im nächsten Teil des Programmes (ab Zeile 329) wird die 
Spalte um eins erhöht, wir bereiten also den nächsten Teil 
des Buchstabens vor. Handelt es sich dabei um die letzte 
Spalte (dies finden wir durch einen Vergleich mit dem 


LAENGE-Wert in der Tabelle heraus), springen wir nach 
ZUENDE. Andernfalls ist die DECODE-Routine beendet 
und wir verlassen sie. 

Bei ZUENDE wird über TEXTHOLEN der nächste Buch¬ 
stabe geholt, dessen Spalte auf den Anfang gesetzt und 
ebenfalls zurückgesprungen. Ja, und somit haben wir es 
geschafft: Der Text ist eine Spalte weitergerückt, und da 
dies bei jedem Hardscroll geschieht, ist das Ergebnis ein 
wunderschön weich scrollender Schriftzug am unteren 
Bildschirmrand. Er eignet sich zum Beispiel für die Schau¬ 
fensterwerbung oder zur Verwendung in Grafikdemos. 

Noch mehr Zeichen 


Falls Sie noch mehr Zeichen darstellen wollen, sollten Sie 
sich Bild 24 ansehen. Wenn Sie diese Methode befolgen, 
können Sie ihren Zeichenvorrat erweitern. Die neu entwor¬ 
fenen Zeichen werden dann in der Laufschrift dargestellt. 
Dies hängt natürlich davon ab, ob wir in unserem TEXT den 
richtigen Buchstaben oder das richtige Sonderzeichen 
schreiben. Dazu müssen wir einfach das Zeichen in die 
Laufschrift setzen, dessen Videocode der Position des neu 
definierten Zeichens in der Tabelle entspricht. Ein Ausrufe¬ 
zeichen im Text ist also nicht unbedingt ein Ausrufezeichen 
am Bildschirm. Dies erklärt auch im nachhinein das selt¬ 
same Aussehen unseres Demotextes im Quellcode: Er 
steht ab Zeile 800 und scheint immer wieder von links¬ 
seitigen, eckigen Klammern durchbrochen zu sein. Auf 
dem Bildschirm stehen an deren Stelle aber brav unsere 
Leerzeichen. Worauf ist dies zurückzuführen? 
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GRUNDLAGEN 


C64 


Aufbau eines einzelnen Buchstabens, zum Beispiel »B« und »T« 


VIDEO-CODE: 2 

Länge = (X-Ausdehnung) 

= 4 Zeichen + 1 Leerzeichen 


l \ 



= 6 Zeichen hoch 


VIDEO-CODE: 20 

Länge = 5 Zeichen + 1 Leerzeichen 


t \ 






=ET 


k— 




--L. 

=jT 






















h=± 





1 Spalte 

= 5 Zeichen + 1 Zeichen 
= 6 Zeichen hoch 


Gemeinsamkeiten: Unterschiede: 

- Höhe = Ausdehnung einer Spalte _ Länge = Anzahl der Spalten 

- Video-Codes 


Bild 21. Der Aufbau 5fach vergrößerter Buchstaben 


Nun, eine solche Klammer hat den VIDEOCODE 27. 
Anstelle einer Klammer wird also das siebenundzwanzig¬ 
ste Zeichen aus unserer Liste, also jenes direkt nach dem 
Z (Videocode 26) dargestellt. Und hier steht nun einmal ein 
SPACE (Zeile 709-714). Sie müssen also immer auf die 
Position des Zeichens in der Tabelle achten und dann das 
Zeichen mit dem entsprechenden Videocode verwenden. 
Da unsere Buchstaben von Stelle 1 bis Stelle 26 stehen und 
hier wie das Alphabet angelegt sind, können wir deren 
Videocodes wie gehabt eingeben. Aus einem A im Text wird 
also auch in der Laufschrift ein A. 

Wir wollen nun mal die Grafik ändern. Unsere Buch¬ 


staben waren zwar groß und schön gestaltet. Die Ge¬ 
schmäcker sind aber bekanntlich verschieden. Wie erstel¬ 
len wir nun völlig neue Schrifttypen, vielleicht sogar in einer 
anderen Größe? Starten Sie doch mal das Programm aus 
Listing 38: Hier zieht eine etwas kleinere, dafür aber nicht 
minder feine Schrift ihre Bahn über den Schirm. Die. 26 
Buchstaben der Alphabets haben eine neue, etwas futuri¬ 
stisch anmutende Form bekommen. Außerdem sind ein 
paar Sonderzeichen hinzugekommen. 

Theoretisch müßte die Definition der neuen Muster durch 
Zeichnen, Errechnen und Definieren erfolgt sein. Man 
kann sich aber vorstellen, daß dies bei einer so großen 


Tabelle der Buchstabenmuster 


Länge (A) = 5 



Länge (B) = 5 


Länge (C) = 5 


Länge (D) = 5 


Adressen des Beginns 
des jeweiligen Buchstabens 



Bild 23. Die Aufteilung für unsere große Laufschrift 


Bild 22. So stehen die Muster im Speicher 
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C64 


GRUNDLAGEN 


1. Zeichen entwerfen 2. Zeichensatz für entsprechende 

Zeichen umdefiniert 

Höhe < 6 Kästchen; 

Rest mit Leerzeichen auffüllen; 

Breite < 255 Kästchen (Länge) 


zum Beispiel 



Länge = 7 Kästchen 


4. Zahlen des Musters 
(oder VIDEO-Werte) 
in Muster-Tabelle 

- Spalte für Spalte 

- OBEN beginnen 


zum Beispiel 


S erstes Zeichen 
zweites Zeichen 


5. Adresse an Tabelle anhängen 
BUCHSTABEN LOW . Byte < 


Ende •_ 

Byte < NAME 

BUCHSTABEN HIGH .Byte > 1 


zum Beispiel 

Name .Byte 32,104,107,108,32,32 

n-mal .Byte 32,105,105,105,109,32 

Anzahl 
der Spalten 
(Länge des 
Buchstabens) 


Ende I_ 

Byte > NAME 


3. Muster in Zahlenwerte 
für Zeichen umwandeln 

(VIDEO-CODES) 

Gleiche Zeichen = Gleiche Zahlen 


1. Spalte 


32 

32 






104 

105 

105 

105 

105 

106 


107 

105 






108 

105 






32 

109 






32 

32 







1. Spalte 2,Spalte 


6. Länge an Tabelle anhängen 
LÄNGE . Byte 5 

Ende j_ 

Byte LÄNGE (z. B. 7) 


Bild 24. So erweitern Sie unsere Laufschrift um ein zusätzliches Zeicnenmuster 


Anzahl von Zeichen sehr umständlich wäre. Deshalb 
haben wie hier eine trickreiche Methode angewandt. 
Unsere Buchstaben sind ausnahmslos drei Zeichen breit 
und ebensoviele hoch. Die Abmessungen entsprechen 
also genau einem Sprite. Falls Sie im Besitz des hervorra¬ 
genden Zeichenprogramms Hi-Eddi sind, können Sie sich 
die Arbeit wesentlich erleichtern. Dieses Programm dient 
der Erstellung von Hires-Grafiken und bietet dazu einige 
komfortable Funktionen. Eine interessiert uns dabei beson¬ 
ders: Die »Briefmarken«- oder »Stamp«-Funktion. Damit 
können wir einen vorher definierten Sprite wir eine Brief¬ 
marke auf den Hires-Bildschirm »kleben«, das heißt an eine 
Stelle auf den Bildschirm kopieren. Auch die Umkehrung, 
also das Holen eines Bildschirmteiles ist möglich. Zusätz¬ 
lich verfügt Hi-Eddi über komfortable Möglichkeiten zum 
Erstellen von Sprites. Diese können wir uns zunutze 
machen. Dazu laden und starten wir Hi-Eddi. Da unsere 
Buchstaben nie größer als ein Sprite sind, erstellen wir 
jeden Buchstaben im Sprite-Editor. Dieses kleben wir als 
Briefmarke auf den Bildschirm. Die Anordnung legen wir 
am besten wie in Bild 25 fest, also in Reihen und Spalten 
aufgeteilt. Falls einige Buchstaben ähnlich aussehen (zum 
Beilspiel E und F), holen wir sie einfach als Sprite vom Bild. 

Oder dreimal so groß? 


Auf diese Weise erhalten wir das komplette Alphabet. Das 
so erstellte Hires-Bild wird nun abgespeichert. Dann kön¬ 
nen wir Hi-Eddi verlassen. Auf der Diskette existiert nun ein 
Hires-Bild, dessen erstes Viertel für uns interessant ist, da 
hier die Buchstaben stehen. Wegen der 8*8-Aufteilung von 
Hires-Schirm und Zeichensatz können wir daraus leicht 


einen Zeichensatz machen: Wir laden das Bild zum Bei¬ 
spiel mit einem Monitor an die Stelle $2000 (8192). Dann 
speichern wir den Bereich von $2000 bis $2800 als Zei¬ 
chensatz ab. Dieser enthält nun alle Zeichen, die unsere 
Buchstaben brauchen. 

Neues Alphabet 


Im nächsten Schritt müssen wir die Tabellen und Ver¬ 
gleichswerte im Scrollprogramm anpassen. Werfen Sie 
dazu einen Blick auf Bild 24: So sind die Muster der Buch¬ 
staben aufgebaut. Die Regelmäßigkeit beim Aufbau setzt 
sich bis zum »M« fort. Da der nächste Buchstabe im Hires- 
Bild drei Kästchen tiefer sitzt, müssen wir einfach zu jedem 
Videocode 120 addieren. Mit diesem Wissen erstellen wir 
dann die neue Tabelle (Listing 39) für die Buchstaben¬ 
muster. Dann müssen wir die Länge, also die X-Ausdeh- 
nung, betrachten. Bei unserem vorangehenden Buchsta¬ 
bensatz war sie je nach Buchstabe verschieden, da ein »I« 
nun mal schmaler ist als ein »B«. Dieses neue Alphabet hat 
aber immer die gleiche Breite. Deshalb kann der Vergleich 
der Länge pauschal, und zwar immer mit dem Wert Drei er¬ 
folgen. Auch die Höhe unserer Buchstaben wurde ver¬ 
ringert. Folglich müssen wir bei FINEPOSITION mit einem 
anderen Wert, in diesem Fall 3, multiplizieren. Andernfalls 
würden wir nur Unsinn auf den Bildschirm bekommen. Zu 
guter Letzt passen wir noch die Rastergrenze an und Scrol¬ 
len nur drei Bildschirmzeilen hard. Die notwendigen An¬ 
passungen dazu sehen Sie in Listing 40, das nur die geän¬ 
derten Teile zeigt. Der Rest ist mit dem Programm aus den 
Listings 34/35/36 identisch. Deshalb können Sie auch hier 
den kleinen Editor verwenden. 
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GRUNDLAGEN 


C64 


Spfita-GröBe 

3 Kistthon s 24 Pi*al broil 



So liegen die Zeichen dann im Satz: 


der neudefinierten 
Zeichen 


z.B. »A« 


T 



ft 




So: 


0 

1 

2 

40 

41 

42 

80 

81 

82 


oder »B- 


So: 


3 

4 

5 

43 

44 

45 

83 

84 

85 


Bild 25. So werden die Buchstaben am Hires-Bildschirm 
abgelegt 


sprachen. Im weiteren Verlauf gingen wir über den Hires- 
Text-Bildschirm zur zweiten Haupteigenschaft des 
Rasterzeilen-Interrupts über, zur Synchronisation mit Bild¬ 
frequenz und menschlichem Auge. Sie führte schließlich zu 
einer weichen Bewegung. Aber erst die Kombination bei¬ 
der Vorzüge eröffnete uns neue Welten: Sie ermöglichte 
das Scrolling, welches von uns Stück für Stück verbessert 
wurde. Und zu guter Letzt kümmerten wir uns noch um die 
verschiedenen Arten von Laufschriften. 

Zum Schluß noch ein kleiner Leckerbissen: Listing 41/42 
erstellt eine Laufschrift im Bildschirmrand, der Quellcode 
zum Maschinenspracheteil findet sich in Listing 43 wieder. 
Mit Ihren jetzigen Kenntnissen dürfte es kein Problem sein, 
dessen Funktionen zu verstehen! 

(Axel Pretzsch/rb/og) 


$0314/$0315: 

Interruptzeiger 

VIC=$D000 

VIC+25: 

Interrupt-Latch-RegisterLesen, um 

VIC+26: 

auf VIC-IRQ zu prüfen 
Interrupt-Enable-Register Beschrei- 

VIC+18, VIC+17/Bit 8: 

ben, um VIC-IRQ zu wählen 

Bit 7: VIC-IRQ Bit 3: Lightpen 

Bit 2: Spritekollision 

Bit 1: Sprite/HG Kollision 

Bit 0: Rasterinterrupt 

Rasterzeile Lesen zeigt aktuelle 

Rasterzeile 

Schreiben setzt Zeile für nächsten IRQ fest 

VIC+17: 

Bit 0-2 Vertikales Pixelscrolling 

VIC+22: 

Bit 0-2 Horizontales Pixelscrolling 

$DC0D Cia-Register 

un^»' 

Bit 7 löschen 

Bit 0 setzen sperrt Timer-IRQ 


Tabelle 1: Wichtige Speicherstellen zur Interruptbehandlung 


Ja, nun können Sie also Ihre eigenen Schriften entwer¬ 
fen! Erstellen Sie wundervolle Typen, sei es nun Gothic 
oder Computer, Antik oder Blockschrift. Versuchen Sie 
auch, unser Programm zu erweitern. Vielleicht kombinie¬ 
ren Sie es ja auch mit unserer Mondlandschaft oder setzen 
Sprites in den Rand? Und wie stünde es mit Scrolling in ver¬ 
schiedenen Geschwindigkeiten auf mehreren Stellen des 
Bildschirms? All dies wird Ihnen ja durch den Rasterzeilen¬ 
interrupt ermöglicht. Damit Sie seine Bedienung und seine 
Möglichkeiten sowie die wichtigsten Speicherstellen auf 
einen Blick griffbereit haben, finden Sie in den Tabellen alle 
wichtigen Daten zusammengefaßt. Hier steht auch eine 
Kurzbeschreibung der Programme, die wir durchgenom¬ 
men haben. Sie müssen hier nur auf eines Rücksicht neh¬ 
men: Die Routinen, die im Rasterzeilen-Interrupt stehen, 
dürfen nicht zu lang werden. Verzichten Sie also auf allzu¬ 
lange Schleifen. Diese Zeitknappheit ist übrigens auch der 
Grund, warum wir bei unseren Scroll-Routinen nur den 
Bildschirmspeicher und nicht das Farb-RAM verschoben 
haben. Dies hätte einfach zu lange gedauert. 

Laufschrift im Rand 


Ja, nun sind wir also am Schluß des Kurses über den 
Rasterzeilen-Interrupt angelangt. Nach der Einführung in 
die Technik des Rasterzeilen-Interrupts haben wir viele Bei¬ 
spiele probiert, die sich zuerst auf die teilende Eigenschaft 
eben jenen Instrumentariums beschränkten. Dann wurde 
die erste längere Anwendung, 14 Sprites am Schirm, be- 


SEI 

Interrupt sperren 

CLI 

Interrupt erlauben 

SFEBC 

Interrupt beenden (JMP SFEBC) 

SEA31 

Tastatur, Ti, Cursor-Behandlung (JMP SEA31) 


Tabelle 2: Befehle und Betriebssystemroutinen 


Scrollen: 

Verschieben des Bildschirminhalts 

Hardscrollen: 

Kästchenweise (8 Pixel auf einmal) 
Scrollen 

Softscrollen: 

Pixelweise Scrollen 

Synchronisation: 

Regelmäßiges Auftreten eines 
Ereignisses gleichzeitig mit einem 
anderen, ebenfalls regelmäßig auf¬ 
tretenden Ereignis 

Selbstmodifizierender Code: 

Programm, das durch Änderung 
der Speicherstellen in dem Bereich 
in dem es sich selbst befindet, 
Befehle ändert und so den Pro¬ 
grammablauf verändert. Dies 
geschieht ohne äußere Eingriffe 

Interrupt: 

Programmunterbrechung 

Rasterzeile: 

Eine (Pixel)-Zeile, die vom VIC 
gelesen wird 

CIA: 

Complex Interface Adapter, 
Peripheriebaustein des C64 


Tabelle 3: Definition einiger in diesem Artikel verwendeter 
Ausdrücke 
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GRUNDLAGEN 


Name : 

irq-sprite.( 

3 


cOOO c06a 

cOOO : 

78 

a9 

10 

8d 

14 

03 

a9 

cO 

84 

c008 : 

8d 

15 

03 

20 

4d 

cO 

58 

60 

e2 

oOlO : 

ad 

00 

de 

6a 

90 

06 

6a 

90 

46 

c018 : 

Od 

4c 

2f 

cO 

ce 

01 

dO 

ce 

05 

o020 : 

01 

dO 

6a 

4c 

2f 

oO 

ee 

01 

64 

c028 : 

dO 

ee 

01 

dO 

4c 

2f 

cO 

6a 

eO 

c030 : 

: 90 

06 

6a 

90 

Oc 

4c 

4a 

cO 

3e 

c038 ; 

ce 

00 

dO 

ce 

00 

dO 

4c 

4a 

61 

o040 : 

cO 

ee 

00 

dO 

ee 

00 

dO 

4c 

5c 

o048 : 

4a 

cO 

4c 

31 

ea 

a9 

01 

8d 

47 

o050 : 

: 15 

dO 

a9 

Od 

8d 

f 8 

07 

a2 

db 

a058 : 

64 

8e 

00 

dO 

8e 

01 

dO 

a2 

97 

c060 : 

40 

a9 

ff 

9d 

40 

03 

ca 

10 

90 

c068 : 

: fa 

60 

00 

ff 

00 

ff 

00 

ff 

92 


SPRITE.O«. Ein Sprite im Interrupt. 
Start mit SYS 49152 


0003 , 
0004 i 
0009 ; 


0010 
0011 * 
0013 
0013 : 
0014 
0013 
0016 
0017 

0016 i 

0019 

0020 i 
0021 
0023 
0023 . 
0024 : 
0029 , 
0026 ■ 
0027 i 
0038 
0029 
0030 

0032 
0033 i 
0034 
0039 i 
0036 : 
0037 j 
0038 : 


i INTERRUPT SPERREN 
i 3X10CB VERBIEGEN 


10319 

OPRITDtAKE 


SPRITE ERSTELLEN 


, JOYSTICK-PORT 2 
i VERTIKAL«)PRAG! 


UNTEN 

HORIECNTAL 


KEINE Vll-EWEGUHO 


VERTIKAUEVEGUHG 


DEC 


i Y-VERT 


UNTEN 


HORIZONTAL 

9D001 1 Y-WEHT 

»0001 s 

HORIZCMTAL 


H0RI2CCTALBEWEGUN0 


SDOOl 
SD001 

0042 ROR 

0043 
0044 . 

0049 
0046 
0047 
0048 i 
0049 ; 

0090 i 
0091 
0092 ; 

0093 HORIZONTAL ROR , HORIZCMTALABTRAGE 

0034 9CC LINKS 

0039 ROH 

0096 8CC RECHTS 

0097 i 

0058 JNP ENDE 1 IRQ BEENDEN 

0099 ; 

0060 LINKS DEC IDOOO , »-WERT 

0061 DEC BDOOO i VERHINDERN 

0062 JNP ENDE i IRQ BEENDEN 

0063 , 

0064 RECHTS INC IDOOO , X-VERT 

0069 INC BDOOO | ERW3SHEN 

0066 JNP ENDE 1 IRQ BEENDEN 

0067 i 

0068 ..... 

0089 i* INTERRUPT BEENDEN • 

0070 ... 

0071 , 

0072 ENDE JNP BEA31 i BTTHIEB33Y3TEN 

0073. f 

0074 ............ 

0079 i* SPRI7E ERSTELLEN • 

0076 !••••.. 

0077 i 

0078 ÜPR17KNAKE LDA 6101 I SPRIT* E1N3CHAL1TN 

0079 STA 80019 

0080 i 

0011 LDA 6B0D i BLOCK-ZEIGEN 

0082 STA 807P8 . SETZ» 

0083 ■ 

0084 LDX 9840 ( BLOCK KIT Iff 

0083 LDA MfT i PUtLUCN 

0086 U STA 80340.X 

0087 OCX 

0088 BPL U 

0080 i 

0010 RT9 l . . .IWD ZURUICK 

Listing 2. Quellcode »IRQ-SPRITE« 
Quelltext der Joystickabfrage. 


0003 i 
0004 i 

0003 .. 

0006 ,• RASTER! WTERRUPTKURa - ORUNWCCUL 
0007 ,« 

0008 i» 1986 AXEL PRTTZaCH 

0009 «• HUTTELOOn. 10 

0010 i- 8033 PLANEOO 

0011 ,...... 

0012 i 

0013 i 

0014 .. 

0019 <• LABEL DEFINITION 

0016 t ....... 

0017 , 

0018 ■ 

0019 i... 

0020 «• VIC-LABEL • 

0021 i.••• 

0022 . 

0023 VIC - BDOOO 

0024 i 

0029 SPBITEOX - VIC 

002« SPRITEI X - V1C*2 

0027 SPRITE2X - VIC*4 

0028 SPHITE3X - VIC-fl 

0029 8PRITMX - VIC*« 

0030 9PRITI3X - VIC.10 

0031 3PRI1X6X - VIC*12 

0032 SPRITE7X - VIC*14 

0033 i 

0034 SPRITEOY - VIC«1 

0039 BPRITE1Y - VIC*3 

0036 SPRITE2Y - VIC.3 

0037 SPHITE3Y - VIC«7 

0038 5PRITE4Y - VIC. 9 

0039 8PRITE3Y - V!C«11 


0040 SPRITESY 

0041 3PR1TE7Y - 

V1C«1S 
VIC«15 

Listing 3. 

0043 SPR1TEOCOL - 
0044 SPRITE!COL - 

VIC.39 
VIC.40 

Quellcode 

0049 SPR1TE2C0L - 

0046 0PR1TE3C0L - 

0047 SPR17E4COL - 

VIC»41 

VIC.42 

VIC.43 

»Grundmodul«. 

0048 SPRITES COL - 
0049 9PR1TE6COL - 

VIC*44 

VIC443 

Definition 

0090 3PBITT7C0L - 
0091 i 

0092 SPRITESAN 

V 

V 

C*47 

c*ai 

häufig benötig- 

0093 3XE XP AND 

0094 BYEXPAND 

0099 SPRITEPHIO - 

V 

V 

V 

C»29 

C* 33 
C»27 

ter Register 

0096 SPR1TENULTI - 
0097 SPRITEKOLL - 

V 

V 

c.ao 

C«>0 

und Routinen 

0038 SPRITKHQCOLL - 

VIC.31 


0060 9MULTI2 

0061 8X293 

VIC*30 
VIC*lfl 


0062 i 

0083 . 




0065 CCNTR0L2 - 

006« CONTROLS 

0067 RASTER 

0068 inurLAU 

VIC*22 
VIC.24 
VIC*10 
VIC«25 


0070 , 

0071 lUlOON 

0072 IIINTERORUMDl - 
0073 IIJNrERORtMH - 

VIC02 
VIC.33 
VIC-34 


0075 HINTXR0RWD4 - 
0076 i 

vic.K 


0077 i 

S .!k.“jp 



. 

0001 1 

0002 IRQVECTORL - 
0083 1R0VBCT0RM - 

B0314 

•0319 


0085 IHQ ABSCHLUSS - 

0006 i 

BPOC 


0088 .• CIA LABEL 



• 

0090 , 

0091 CIA1RQ 

0092 VBANK 

SOCOD 

IDOOO 


0093 J0YP0HT1 

0094 JOYTORT2 

BDC01 

•DCOO 



Name 

: irq-koll. 

. o 



cOOO c052 

cOOO 

: 78 

a9 

f 4 

8d 

la 

dO 

ad 

le 

57 

C008 

: dO 

a9 

18 

8d 

14 

03 

a9 

cO 

e6 

cOlO 

: 8d 

15 

03 

20 

32 

cO 

58 

60 

38 

c018 

: ad 

19 

dO 

8d 

19 

dO 

30 

09 

23 

c020 

: ee 

01 

dO 

ce 

03 

dO 

4c 

31 

e7 

c028 

: ea 

ee 

20 

dO 

ad 

le 

dO 

4c 

53 

c030 

: bc 

fe 

a9 

03 

8d 

15 

dO 

a9 

4e 

c038 

: 64 

8d 

00 

dO 

8d 

02 

dO 

a9 

fc 

c040 

: Od 

8d 

f 8 

07 

8d 

f 9 

07 

a2 

3d 

c048 

: 40 

a9 

ff 

9d 

40 

03 

ca 

10 

78 

c050 

: fa 60 a9 Od 8d fC - 

a2 

88 


Listing 4. MSE-Listing »IRQ- 
KOLL.O«. Dieses Programm fragt 
die Kollision zweier Sprites in VIC- 
Interrupt ab. Start mit SYS 49152. 


Name 

zwel-rahmen 

O 


cOOO c056 

cOOO 

78 

ad 

Od 

de 

29 

7f 

09 

01 

e2 

c008 

8d 

Od 

de 

a9 

32 

8d 

12 

dO 

02 

cOlO 

ad 

u 

dO 

29 

7 f 

8d 

11 

dO 

e9 

c018 

a9 

81 

8d 

la 

dO 

a9 

29 

8d 

43 

c020 

14 

03 

a9 

cO 

8d 

15 

03 

58 

76 

c026 

60 

ad 

19 

dO 

8d 

19 

dO 

ad 

ff 

c030 

12 

dO 

c9 

fa 

bO 

10 

a9 

00 

ae 

c038 

8d 

21 

dO 

8d 

20 

dO 

a9 

fa 

61 

c040 

8d 

12 

dO 

4c 

bc 

fe 

a9 

05 

08 

c048 

8d 

21 

dO 

8d 

20 

dO 

a9 

32 

df 

c050 

8d 

12 

dO 

4c 

31 

ea 

00 

ff 

Oe 

Listing 6. 

MSE-Listing 

»ZWEI- 


RAHMEN.O«. 

Der Bildschirmrah- 


men wird zweifarbig. 





biart 

mit 

SYS 

4: 

na; 

i. 






0096 



0090 

0099 

• ABFRAGE DER SPfilTZKOLLl31» • 

DUHCH INTERRUPTS • 

0101 

0102 

0103 

— BCOOO 

• OBJ N 


0109 

0106 

SEI | 

INTERRUPT SPERREN 

0107 

oioa 

LDA WllllOlOO 
STA IRQNASK 

SPRITEKOLL!8ION 

VAEHLZN 

öiiö 

LDA SPRITEKOLL 

REGISTER VORBEREITEN 

0112 

0113 

LDA «<IRQNEU 

STA »0314 

ZEIOER VERBIEGE» 

0114 

0115 

LDA •>IRQNEU 

STA B0313 


0117 

0110 

J8R SPRITTMAKE 

SPRITES ERSTELLEN 

0119 

0120 

0121 

CU 

RTB 

INTERRUPT XULADSEN 
. .. w® runuzcK 

0121 

• NEUER INTERRUPT 


0129 

0126 

0127 

IRQNEU LDA IRQTLAO 

STA IRQTLAO 


0129 

0120 

BMI VICTTIL 

VIC-INTERRUPT? 

0131 

0132 

0133 

0134 

tue sprihoy 

DEC SPHITE1Y 
JNP IRQXORMAL 

.... NEIN 

BETRIEBflSYSTEM 

0136 

• VIC-INTERRUPT 

• 

0130 

0139 

0140 

0141 

0142 

0143 

0144 

VICTEIL INC RAHN» i RAKNENTARRe 

LDA OPRITEKOLL i REGISTER V0RBERE1TEN 

JNP 1RQAB9CHLU3S i .UND ENDE 

0146 

• OPHITEO ERSTELLEN 

• 

0140 

0149 

SFR !TENAXE LDA *903 

SPRITES EINSCHALTEN 

0190 

0151 

STA 10013 


0153 

0154 

0155 

0156 

STA SPRITEOX 

STA BPR1TE1X 

.LDA *(09 

BLOCK-ZEIGER 

0157 

019B 

0139 

0160 

0161 

0162 

STA 907T8 

STA B07F9 

LDX «B40 

LDA •BTF 

U STA 10340.X 

SETZEN 

BLOCK KIT trr 

TUELLEN 

0163 

0164 

0163 

0166 

DEX 

BPL LI 

HTS 

...UND ZURUECK 

Listing 5. Quelltext »IRQ-KOLL«. 

Die Sprite-Kollisionsabfrage 


0097 i 
0098 i 
0099 i 

0100 i 

0101 I 
0102 ) 
0103 i 
0104 
0109 
0106 . 
0107 
0100 
0109 
0110 
0111 ■ 
0112 : 
0113 , 
0114 , 
0119 ! 
0116 , 
0117 

0118 i 

0119 i 
0120 
0121 
0122 
0123 
0124 i 
0129 
0126 
0127 
0128 
0129 
0130 : 
0131 
0132 
0133 i 
0134 
0139 
0136 
0137 
0138 ; 
0139 
0140 
0141 , 
0142 . 
0143 , 
0144 ; 
0149 j 
0146 
0147 
0148 i 
0149 
0190 
0191 
0152 > 
0193 
0194 
0159 
0196 
0197 
0198 
0199 ; 
0160 
0161 
0162 
0163 
0164 
0169 


ERZEUGEN EINES ZWEIFARBIGE» 


RASTER-1P0 EIN51TL1EN 


INTERRUPT SPERREN 


CIAIPQ i TIHER-INTERRUPT AUS 

M011U111 

MOOOOOQOI 

CIAIRQ 


STA 

LDA 

AND 

STA 


HARTER 

CWTR0L1 

•ITT 

CCffTROLl 


KIPQNEU i ZEIOZRSETZEN 
IRQVECTORL 
• >inonru 

IBQVECTORH 


NEUE 1NTERRUP7R0UTINE 


INTERIM? AUSLESEN 


RASTER 
•««TEN 
I37UHTEN 

IPARBE1 f OBEN 

H1NTERSRLND1 

RAHNEN 

•UNTEN 

RASTER 

IROABOQTLU33 

•PAHBE2 

HIH7ERGRUND1 

RAHNEN 

•OBEN 

RASTER 

1RQNORHAL 


WELCHE ZEILE? 


Listing 7. Quelltext »ZWEI¬ 
RAHMEN«. Funktionsweise des 
zweigeteilten Rahmens 


0142 i 
0143 , 
0144 i 
0149 , 
0146 ! 
0147 
0148 
0149 i 
0150 
0101 
0192 
0133 . 
0184 
0159 
015* 
0157 
0158 
0159 , 

0160 i 

0161 

0162 

0163 , 

0164 

ni6', 

0166 i 

0167 

0160 . 

0169 

0170 

0171 

0172 

0173 

0174 , 

0179 , 

0176 

0177 

0178 . 

0179 

0180 

0181 r 

0182 


NEUE I NTERRUPTTKn/TI NE 


RASTER 

•UNTEN 

IffTWIEN 


i tNTERRUP AUSLESEN 
i WELCHE ZEILE? 


JMP IRQABSCHLUSS 


JMP IRQNORHAL 


Listing 8. IRQ-Teil des Quelltextes 
»RAHMEN-SATZ« (Die ersten Zeilen 
entsprechen Listing 7). Die Inter¬ 
ruptbearbeitung zum Programm mit 
zwei Zeichensätzen und mehreren 
Rand- und Hintergrundfarben 




SONDERHEFT 17 
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GRUNDLAGEN 


C64 


Name 

drei-rahmen 

o 


cOOO c075 

oOOO 

78 

ad 

Od 

de 

29 

7f 

09 

01 

e 2 

c008 

8d 

Od 

de 

a9 

28 

8d 

12 

dO 

61 

oOlO 

ad 

11 

dO 

29 

7f 

8d 

11 

dO 

e9 

c018 

a9 

81 

8d 

la 

dO 

a9 

29 

8d 

43 

c020 

14 

03 

a9 

cO 

8d 

15 

03 

58 

76 

0028 

60 

ad 

19 

dO 

8d 

19 

dO 

ad 

ff 

c030 

12 

dO 

c9 

63 

90 

Oa 

ad 

12 

bd 

c038 

dO 

c9 

d2 

90 

13 

4c 

65 

cO 

5e 

o040 

a9 

06 

8d 

21 

dO 

8d 

20 

dO 

Of 

c048 

a9 

63 

8d 

12 

dO 

4c 

bc 

fe 

a9 

c050 

a2 

03 

ca 

dO 

fd 

a9 

01 

Bd 

8d 

c058 

21 

dO 

8d 

20 

dO 

a9 

d2 

8d 

09 

c060 

12 

dO 

4c 

bc 

fe 

a9 

02 

8d 

e5 

c 068 

21 

dO 

8d 

20 

dO 

a9 

Oa 

8d 

f 6 

c070 

12 

dO 

4c 

31 

ea 

ff 

00 

ff 

d2 


Listing 9. MSE-Listlng »DREI- 
RAHMEN.O«. Diese Programm 
erzeugt eine Trikolore und wird mit 
SYS 49152 gestartet. 


Name : n-rahmen.o cOOO c07a 


oOOO : 

: 78 

ad 

Od 

de 

29 

7f 

09 

01 

e2 

c008 : 

: 8d 

Od 

de 

a9 

28 

8d 

12 

dO 

61 

oOlO : 

: ad 

11 

dO 

29 

7f 

8d 

11 

dO 

e9 

c018 : 

: a9 

81 

8d 

la 

dO 

a9 

29 

Bd 

43 

o 020 : 

: 14 

03 

a9 

cO 

8d 

15 

03 

58 

76 

c028 : 

: 60 

ad 

19 

dO 

8d 

19 

dO 

a2 

e9 

c030 : 

: 00 

ad 

12 

dO 

dd 

5f 

cO 

90 

a2 

c038 : 

: Od 

e8 

eO 

09 

dO 

f 6 

a9 

27 

cc 

c040 : 

8d 

12 

dO 

4c 

31 

ea 

bd 

71 

d8 

c048 : 

: cO 

a8 

88 

dO 

fd 

bd 

68 

cO 

89 

c050 : 

: 8d 

21 

dO 

8d 

20 

dO 

bd 

5f 

92 

C058 : 

: cO 

8d 

12 

dO 

4c 

bc 

f e 

28 

74 

o060 : 

: 50 

5a 

96 

c8 

de 

e6 

fO 

fa 

5b 

c068 : 

: 00 

03 

Oe 

06 

02 

04 

Ob 

Oc 

b3 

c070 : 

: Of 

02 

07 

05 

06 

Oc 

Oa 

08 

de 

c078 : 

: 12 

07 

00 

ff 

00 

ff 

00 

ff 

Oe 


Listing 10. MSE-Listing »N- 
RAHMEN.O«. Rahmen und 
Hintergrund beliebig oft geteilt, 
Start mit SYS 49152. 


0X43 , 
0144 I 
0X43 , 
014« ; 
0147 i 
014» 
014» 
0130 . 
0131 
0132 
0133 
0134 
0133 i 
013* 
0137 
0130 
013» i 
0140 
01*1 
01*2 
01*3 , 
01*4 i 
01*3 . 
01*0 , 
0107 i 
01*0 
01«» I 

0170 

0X71 

0172 

0173 i 

0174 

0173 

017« 

0177 i 

0170 

017» 

0100 i 
0101 ' 
01B2 
0103 ( 
0104 


svir, i tnroifluproam me 


••oo 
raster 
zniu.x 
“tlTER 


INTERRUPT AUSLESEN 


, X-REOISTEH *10 INDEX 
DER REIHT NACH 
i VERBLEICHEN 
i OEOEimtEHf ALLS 

i vEiavEtani 


M ■ILOSCHJRKTEIIE 


LOA COUNT. X 


PARBB.X t 

HlHTtRORLfltJl , 7ARBER SETZER 
RAHMEN 

ZEILE.X . KAECH8TE RARTERZEILE 


JMT IRQABSCKUJBS 

BYTE «20.«30.»3A.19«.«CO.IOC.«E6.«PO.«PA 


0103 FARBE 
010« COUNT 


.BYTE *00.«03.«OE,*06.«02.104.«OB.«OC.«OP 
.BYTE «02.«07.«03.«00.IOC,*0A,«OB.112.*07 


Listing 11. IRQ-Teil des Quelltextes 
»N-RAHMEN«. 

So funktioniert die mehrfache Auf¬ 
teilung des Bildschirmes. 


Name : 14 Sprites.o oOOO cldd 


oOOO : 

a2 

41 

a9 

ff 

9d 

3f 

03 

ca 

23 

o008 : 

: dO 

fa 

aO 

Oc 

a2 

06 

bd 

72 

35 

oOlO : 

oO 

99 

63 

cl 

99 

93 

cl 

88 

fc 

c018 : 

: 88 

ca 

dO 

f 2 

a2 

Oc 

a9 

32 

2d 

c020 i 

9d 

64 

cl 

a9 

eO 

9d 

94 

cl 

66 

c028 : 

: ca 

ca 

dO 

f 2 

a 2 

06 

a9 

Od 

05 

o03Q : 

9d 

f 7 

07 

9d 

c4 

cl 

9d 

CC 

a9 

0038 : 

' cl 

ca 

dO 

f 4 

a9 

20 

8d 

10 

23 

o040 : 

dO 

8d 

75 

cl 

8d 

a5 

cl 

a9 

cd 

o048 : 

: 50 

6d 

Oc 

dO 

8d 

Od 

dO 

a9 

54 

o050 : 

60 

8d 

Oe 

dO 

8d 

Of 

dO 

a9 

fa 

c058 : 

00 

Bd 

ld 

dO 

8d 

17 

dO 

8d 

70 

o060 : 

7c 

cl 

8d 

82 

cl 

8d 

ac 

Cl 

2f 

0068 : 

: 8d 

b2 

cl 

a9 

ff 

8d 

15 

dO 

56 

o070 : 

4c 

79 

cO 

24 

5b 

92 

c9 

fc 

99 

c078 : 

: 34 

78 

ad 

Od 

de 

29 

7f 

09 

lc 

o080 : 

01 

8d 

Od 

de 

a9 

90 

8d 

12 

aO 

o088 : 

: dO 

ad 

11 

dO 

29 

7 f 

8d 

11 

74 

c090 : 

dO 

a9 

81 

Bd 

la 

dO 

a9 

a2 

5b 

o098 : 

: 8d 

14 

03 

a9 

cO 

8d 

15 

03 

f 8 

cOaO : 

58 

60 

ad 

19 

dO 

8d 

19 

dO 

36 

o0a8 : 

: ad 

12 

dO 

c9 

90 

bO 

5b 

a9 

lb 

cObO : 

: 06 

8d 

21 

dO 

8d 

20 

dO 

a2 

42 

o0b8 : 

: Oc 

bd 

64 

cl 

9d 

ff 

cf 

ca 

a3 

cOoO : 

dO 

f 7 

a2 

06 

bd 

8b 

cl 

9d 

70 

c0c8 : 

: 26 

dO 

ca 

dO 

f 7 

a2 

06 

bd 

4b 

cOdO : 

c4 

Ol 

9d 

f 7 

07 

ca 

dO 

f 7 

d5 

cOd8 : 

ad 

7c 

cl 

8d 

17 

dO 

ad 

82 

99 

oOeO : 

: cl 

8d 

ld 

dO 

ad 

81 

cl 

8d 

d2 

c0e8 : 

: lc 

dO 

ad 

80 

cl 

8d 

lb 

dO 

7e 

oOf0 : 

ad 

8a 

cl 

8d 

25 

dO 

ad 

8b 

ab 

cOf8 : 

: cl 

8d 

26 

dO 

ad 

75 

cl 

8d 

cc 

olOO : 

10 

dO 

a9 

90 

8d 

12 

dO 

4c 

3a 

cl 08 : 

: bc 

fe 

a9 

05 

8d 

21 

dO 

8d 

8f 

cllO : 

20 

dO 

a2 

Oc 

bd 

94 

cl 

9d 

85 

0118 : 

; ff 

cf 

ca 

dO 

f 7 

a2 

06 

bd 

f 4 

cl20 : 

bb 

cl 

9d 

26 

dO 

ca 

dO 

f 7 

7e 

cl28 : 

a2 

06 

bd 

CC 

cl 

9d 

f 7 

07 

cd 

ol30 : 

ca 

dO 

f 7 

ad 

ac 

cl 

8d 

17 

53 

cl38 : 

dO 

ad 

b2 

cl 

8d 

ld 

dO 

ad 

24 

cl40 : 

bl 

cl 

8d 

lc 

dO 

ad 

bO 

cl 

79 

Cl48 : 

8d 

1b 

dO 

ad 

ba 

cl 

8d 

25 

87 

ol50 : 

dO 

ad 

bb 

cl 

8d 

26 

dO 

ad 

c6 

cl58 : 

: a5 

cl 

8d 

10 

dO 

a9 

Oa 

8d 

el 

ol60 t 

12 dO 4c 

31 ea 00 

00 

c2 

cl68 : 

: 00 

00 

00 

00 

00 

00 

00 

00 

69 

C170 : 

00 

00 

00 

00 

00 

00 

00 

00 

71 

cl78 : 

: 00 

00 

00 

00 

00 

00 

00 

00 

79 

cl80 : 

: 00 

00 

00 

00 

00 

00 

00 

00 

81 

cl88 : 

: 00 

00 

00 

00 

00 

00 

00 

00 

89 

cl90 : 

00 

00 

00 

00 

00 

00 

00 

00 

91 

cl98 : 

: 00 

00 

00 

00 

00 

00 

00 

00 

99 

olaO : 

00 

00 

00 

00 

00 

00 

00 

00 

al 

ola8 : 

: 00 

00 

00 

00 

00 

00 

00 

00 

a9 

olbO : 

00 

00 

00 

00 

00 

00 

00 

00 

bl 

clb8 : 

: 00 

00 

00 

00 

00 

00 

00 

00 

b9 

clcO : 

00 

00 

00 

00 

00 

00 

00 

00 

cl 

olc8 : 

: 00 

00 

00 

00 

00 

00 

00 

00 

c9 

oldO : 

: 00 

00 

00 

00 

00 

01 

02 

04 

e9 

cld8 : 

08 

10 

20 

40 

80 

00 

ff 

00 

00 


Listing 12. MSE-Listing »14 SPRI- 
TES.O«. Auf dem Bildschirm 
erscheinen 14 Sprites. Start mit 
SYS 49152. 


0090 

0099 

0100 

0101 

0102 

0103 

0104 

0103 

010* 

0107 

0100 

0109 

0110 

0111 

0112 

0113 

0114 

0113 

0116 

0117 

0110 

0119 

0120 

0121 

0122 

0123 

0124 

0123 

0126 

0127 

0120 

0129 

0130 

0131 

0132 

0133 

0134 


PARBE1 

FARBE« 

OBEN 

UNTER 

SPOINITR 


POEUDO-VIC IHIT 


BTA 

OEY 

KEY 

OCX 

BME 


•141 

•»PP 

«33F.X 


••OC 

••0« 

XKOOR-l.X 

VtCl-J.Y 

VIC2-2.» 


0133 

013« 

0137 

013« 

0139 

0140 

0141 i 

0142 

0143 

0144 

0143 

0146 

0147 

014« 

0149 , 

0130 

0131 

"132 

0133 

0134 . 

0133 

OlM 

0137 

013« 

0139 

0160 

01*1 . 

0l«2 

0163 

01*4 

01*3 

0166 

0l«7 

oua 

0180 i 

0170 
0171 
0172 i 
0173 
0174 i 
0173 , 
017« . 
0177 , 
0179 i 
0179 , 

oiao 


VICl-l.X 

••EO 

W1C2-1.X 


• »0« j BLOCKPOIHtR 

•100 i 3CTZTN 

SPOIMTER-l.X 
P01NTER1-1.X 
P01NTER2-1.X 


LOOP« 

«00100000 , 
8X233 
V1C1*1« 
VIC2*16 

•■SO 

3PRITT6X 

BPRITK6Y 

••*0 

■num 

3PRITE7Y 

••00 

3XEXPARD 

OYEIPASO 

VICl*23 

VICl»29 

VIC2»23 

VIC2*29 


UNABHAENOICE 

SPRITES 

POSITIONIEREN 


KE IRE VtROBOEBOBRIMl 


• BPR1TE-KOORD1KATER 

XXOOR BYTE «34.«3B.«92.SC9.«rC,«34 


■ RASTER-IRQ EINSTELLTN 


01B3 . 

0166 , 

0107 
0103 i 
0109 i 
0190 
0191 
0192 
0193 
0194 i 
0193 
0196 
0197 
0190 
0199 
0200 , 

0201 
0202 
0203 ; 

0204 
0203 
0206 
0207 
0208 , 

0209 
0210 
0211 < 

0212 : 

0213 . 

0214 : 

0213 .• 

0217 
0218 ; 

0219 
0220 
0221 
0222 i 

0223 ; 

0224 , 

0223 ; 

0226 i 

0227 
0228 
0229 
0230 , 

0231 

0233 
0234 ; 

0233 
023« 

0237 , 

0230 
0239 
0240 
0241 
0242 
0243 i 
0244 
0243 
0246 
0247 
0248 
0349 , 

0330 
0331 
0232 
0233 
0234 
0238 
028* 

0337 
0238 
0339 
0260 
02*1 
02*2 
0263 
0264 i 
0263 i 
0266 
0267 
0268 
02«* i 

0270 j 
0271 , 

0272 , 

0272 , 

0274 I STUNT» 

0273 

0X76 

0277 , 

0278 

0279 LOOP13 

0280 

0281 i 

0282 

0283 

0284 • 

0203 

0286 L00P14 
0287 

0288 
0289 
0290 | 

0291 

0292 LOOP13 

0393 

0294 

0293 

0290 i 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0303 

0306 

0307 

0308 

030» 

0310 
0311 . 

0312 j 


STA 

LOA 

ARO 

STA 


CIAIRQ . TIMER-INTERRUPT AUS 
•*01111111 
•*00000001 
CIAIRQ 

•UNTER 
RASTER 
CONTROLl 
•97F 
ceernwLi 


•< 1RQPLU5 . ZEIG ERSETZEN 

IROVTCTORL 

•>1RQPLUS 

IRQVZCTORK 


IRQ ZULASSEM 


NEUE 1NTERHUPTROUTINE 


1 IRQ LOESCHEH 


RASTE? 

•UNTEN 

I5TUNTE» 


. OBEN ODER UNTEN? 


•FASSE! 

HIKTESGRi.ND! 

RAHMEN 

•*0C i XIXHIDINATZM AUS 
VICl-l.X j PSELQO-V1C 1 
VIC-l.X j HOLEN 


•106 . SPR1TEFAREEN1 HOLEN 

V1C1-1«39.X 

SPfl ITEOCOL-1. X 


••06 . POIHTETU HOLEN 

POINTER1-1.X 

SPOlNTER-l.X 


WIE LOOP 13 

LOA V1C1.23 
STA 5YEXPAMD 
LOA V1C1.2» 

STA SXEXPAMD 
LOA V1C1*30 
STA 3PRITDULT1 
LOA V1C1 • 27 
STA SPR1TEPR10 
LOA VIC1«37 
STA SB8JLTU 
LOA V1C1O0 
NTA SMA.TI2 
LOA VIC1*16 
STA 8X233 


♦UNTEN 

RASTER 

IRQAB9CHLU89 . 


UNTERER TEIL 


STA 

OCX 


•PARBE2 

HiirrrscmuMDi 

RAHMEN 

•IOC i KOORDINATEN 

VIC3-1.X , AUS PSEUDO-VIC 2 
VIC-l.X 


•»06 I0PR17ZFAR8EM2 HOLEN 

VIC3-1.29.X 

SPRITEOCOL-l,X 


DHE LOOP14 


••06 i P01NTER2 HOLEN 

P01NTER2-1.X 

SPOINTZR-l. X 


BME 100P13 


V1C3-33 , I 

DYEXPAND i ! 

V1C2« 29 

SXEXPAMD 

V1C2«38 

SPR1TEMULTI 

VIC2-27 

SPR1TEPR10 

VIC2*37 

SMULTI1 

VIC2*3B 

SKULTI3 

VIC2.1S 

SX233 
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GRUNDLAGEN 


0313 
0314 
0313 
0316 
0317 
0310 
0319 
0330 
0331 
0333 
0333 
0334 
0333 
0336 
0337 
0330 
0339 
0330 
0331 
0333 
0333 
0394 
0333 ZPOT 

033« 


LDA «OBEN 
STA RASTER 
JKP IROMORMAL . 




i* P3ELOO VIDEOCHIPS 

• 

‘viCl •- • *40 

. NEUER „VIC- 

vica — *mo 

P01MTER1 •- * «0 

POINTER! •- -.0 

t neuer\ic- 

:• 2MEIERPOTEMZEN 

• 


.BYTE «01.*03,904.»08 
«m: »io.«30. «ho. «oo 


Listing 13. Quelltext »14 SPRITES«. 
Der Quelltext zum Programm, wel¬ 
ches die Sprite-Anzahl heraufsetzt 


Name 

rand-sprltea.o 


oOOO c0a9 

eOOO 

78 

ad 

Od 

de 

29 

7f 

09 

01 

e2 

e008 

8d 

Od 

de 

a9 

f 7 

8d 

12 

dO 

öe 

oOlO 

ad 

11 

dO 

29 

7f 

8d 

11 

dO 

e9 

c018 

a9 

81 

8d 

la 

dO 

a9 

78 

8d 

80 

c020 

14 

03 

a9 

cO 

8d 

15 

03 

20 

06 

c028 

3b 

cO 

a9 

00 

8d 

20 

dO 

a9 

9e 

c030 

06 

8d 

21 

dO 

a9 

00 

8d 

ff 

30 

c038 

3f 

58 

60 

a9 

08 

a2 

Of 

9d 

fe 

c040 

00 

dO 

ca 

ca 

10 

f 9 

a9 

18 

5c 

c048 

a2 

00 

9d 

00 

dO 

18 

69 

30 

26 

e050 

e8 

e8 

eO 

10 

dO 

f 4 

a9 

eO 

04 

C058 

8d 

10 

dO 

aO 

ff 

a2 

07 

98 

98 

e060 

9d 

f8 

07 

a9 

00 

9d 

27 

dO 

9c 

c068 

88 

ca 

10 

f 3 

a9 

ff 

8d 

15 

d3 

c070 

dO 

8d 

ld 

dO 

8d 

17 

dO 

60 

f e 

c078 

ad 

19 

dO 

8d 

19 

dO 

ad 

12 

8b 

c080 

dO 

c9 

f 7 

90 

12 

a9 

01 

8d 

d2 

c088 

12 

dO 

a9 

13 

8d 

11 

dO 

a9 

c7 

c090 

00 

8d 

15 

dO 

4c 

bc 

fe 

a9 

bO 

c098 

f 7 

8d 

12 

dO 

a9 

lb 

8d 

11 

cO 

cOaO 

dO 

a9 

ff 

8d 

15 

dO 

4c 

31 

62 

c0a8 

ea 

12 

dO 

c9 

90 

bO 

5b 

a9 

58 


Listing 14. MSE-Listing »RAND- 
SPRITES.O«. Diese Routine bringt 
Sprites in den Rand. Start mit SYS 
49152. 


00B0 

0099 

0100 

0101 

0103 

0103 

0104 

0103 

0106 

0107 

0100 

0109 

0110 

0111 

0113 

0113 . 

0114 i 

0119 i 

0116 i 

0117 j 

0110 

0119 i 

0130 i 

0111 

0132 

0133 

0134 

0129 i 

0136 

0127 

0128 i 

0129 

0130 

0191 

0132 : 

0133 

0134 

0139 .- 

0136 

0137 

0130 

0199 

0140 > 

0141 

0143 

0143 

0144 

0149 

0146 

0147 i 

0140 

0149 

0130 

0131 

0133 : 

0133 > 

0134 . 

0139 ; 

0136 . 

0137 

0130 

0139 i 


SPRITES IN BI LOSCH! RKRAW» 

...... 

•- 49192 


FARBE! 

OBEN 

UNITH 

BP01MTER 

VERSATZ 


1 RASTER-IRQ EINSTELLEN 


CIA IRQ i TINT.II-INTERRUPT AUS 

•*01111111 

•*00000001 

CIAIRQ 


C0NTB0L1 

W7F 

CCNTROL1 


LOA •<IRQPLU3 , ZEIGER SETZEN 
STA IRQVECTOm. 

LOA •)inomm 
STA 1RQVECTOHM 

JOB SPRITESINIT 

LOA »rARBEl 
STA RAHNEN 
LOA «FARBE! 

STA HINTERGRUND! 


i NEIN NÜSTER UNTEN 


NEUE INTERPUnSOUTINE 


0160 

0161 

0163 

0163 . 

0164 

0163 

0166 i 

• 0167 
0160 
0169 . 
0170 
0171 
0172 j 
0173 
0174 . 
0173 
0176 
0177 i 
0170 
0179 
01*0 . 
0101 
01B2 
0103 i 
0164 i 
0183 
01M i 
03B7 i 
0100 , 
0109 i 
0190 i 
0191 i 
0192 
0199 
0194 i 
0193 
0190 
0197 
0199 
0199 i 
0200 
0201 
0202 
0203 
0204 
0203 
020 « 
0307 
0209 
020 » , 
0210 
0311 
0312 i 
0219 
0214 
0213 
0316 
0317 
0310 
0319 
0220 
0221 
0222 i 

0223 
0224 
0223 
0226 
0227 
0220 : 


KA3TEH 
•UNTEN 
ISTOBEN 


JNP 1RQAB0CHUJB8 

LOA «UITEN 
BTA RASTER 

LOA «IlB i 2! 
STA CONTROLl 


JMP IBQÄMNAL 


SPRITES INITIALISIEREN 


i Y-KOOROIWATEN 


STA SPHITSOX.X 


BPL LOOP1A 


•■10 iX-KOORDINATEN 

•900 , SETZEN 

aPRITTOX.X 


ADC (VERSATZ 


3POINTER,X 
•FARBEl 
BPRITIOCOL.X 


BPL LOOPS 


♦•rr I RESTLICHE 
SPRITES AN , PARANETDI1 
3XEXPAND 
SYEXPAK) 

UND ZURUBCX 


Listing 15. Quellcode »RAND¬ 
SPRITES«. So werden die Sprites 
im Rand dargesteilt. 


twTviÜnP 

Name : hires-text.o cOOO ol4o 


cOOO : 

a2 

00 

aO 

eO 

86 

5f 

84 

60 

ld 

c008 : 

a2 

00 

86 

5a 

86 

5b 

86 

58 

a5 

cOlO : 

86 

59 

20 

bf 

a3 

a2 

00 

aO 

d3 

c018 : 

aO 

86 

5f 

84 

60 

a2 

00 

aO 

oO 

c020 : 

cO 

86 

5a 

84 

5b 

86 

58 

84 

9f 

c028 : 

59 

20 

bf 

a3 

a9 

60 

8d 

da 

7f 

c030 : 

e4 

8d 

44 

e5 

a8 

88 

8d 

d8 

6f 

c038 : 

e9 

a9 

10 

8d 

d9 

e9 

a9 

f 9 

33 

c040 : 

Bd 

da 

e9 

a9 

60 

8d 

db 

e9 

aO 

c048 : 

a2 

06 

a9 

ea 

9d 

65 

e5 

ca 

e7 

c050 : 

dO 

fa 

a9 

11 

8d 

f 7 

e8 

a9 

b9 

c058 : 

35 

85 

01 

a2 

41 

a9 

00 

9d 

81 

c060 : 

3f 

03 

oa 

dO 

fa 

a2 

Oo 

a9 

36 

c068 : 

ff 

9d 

3o 

03 

oa 

dO 

fa 

aO 

06 

c070 : 

10 

a2 

08 

bd 

b7 

oO 

99 

fe 

71 

c078 : 

: of 

88 

88 

ca 

dO 

f 5 

a2 

10 

6e 

c080 : 

a9 

bb 

9d 

ff 

of 

oa 

oa 

dO 

8e 

c088 : 

: f 9 

a2 

08 

a9 

Od 

9d 

f 7 

07 

b5 

c090 : 

: ca 

dO 

fa 

a2 

08 

a9 

00 

9d 

de 

c098 ; 

26 

dO 

oa 

dO 

fa 

a9 

cO 

8d 

Oe 

cOaO : 

: 10 

dO 

a9 

00 

8d 

lo 

dO 

Bd 

9b 

c0a8 : 

: lb 

dO 

n9 

ff 

8d 

ld 

dO 

8d 

b6 

oObO ' 

: 17 

dO 

8d 

15 

dO 

4c 

oO 

cO 

29 

o0b8 : 

: 14 

3e 

68 

92 

bo 

e6 

10 

3a 

Of 

cOcO : 

: 78 

ad 

Od 

da 

29 

7f 

09 

01 

a2 

cOcB 

: Bd 

Od 

do 

a9 

bc 

Bd 

12 

dO 

6a 

cOdO : 

: ad 

11 

dO 

29 

7f 

8d 

11 

dO 

a9 

c0d8 

: a9 

81 

8d 

la 

dO 

a9 

f 3 

8d 

2e 

cOeO 

: 14 

03 

a9 

cO 

Bd 

15 

03 

ad 

el 

c0e8 

: 12 

dO 

o9 

bo 

bO 

03 

4c 

e7 

90 

cOfO 

: oO 

58 

60 

ad 

19 

dO 

8d 

19 

2b 

oOf 8 

: dO 

ad 

12 

dO 

c9 

bo 

bO 

ld 

bd 

olOO 

: a9 

00 

8d 

21 

dO 

ad 

18 

dO 

ad 

cl08 

: 09 

08 

8d 

18 

dO 

ad 

11 

dO 

do 

cllO 

: 09 

20 

8d 

11 

dO 

a9 

bo 

8d 

17 

cllB 

: 12 

dO 

4o 

bo 

fe 

a9 

06 

8d 

ad 

cl20 

i 21 

dO 

ad 

18 

dO 

29 

f 7 

8d 

69 

0128 

: 18 

dO 

ad 

11 

dO 

29 

df 

8d 

27 

cl30 

: 11 

dO 

a2 

25 

oa 

dO 

fd 

a5 

6d 

cl38 

: d6 

c9 

12 

bO 

07 

a9 

12 

85 

9f 

0140 

: dB 

20 

10 

e5 

a9 

Oa 

8d 

12 

2c 

0148 

: dO 

4c 

31 

ea 

ba 

cl 

8d 

25 

22 


Listing 16. MSE-Listing »HIRES- 
TEXT.O«. Hires und Text gemischt, 
Start durch SYS 49152. 


0096 , 

0097 , 

0090 ..... 

0099 ,• HIRES UND TEXT 

0100 .• AUT EINEN BILOSCHIRS 

0101 i* 


0103 . 

0104 

0103 


0100 

0109 

0110 

0111 

0113 

0119 

0114 

0113 

0116 i 

0117 i 
0110 , 
0119 | 
0120 
0121 
0122 
0129 
0124 . 
0123 
0126 , 
0127 
0120 
0139 , 
0130 
0131 
0133 , 
0139 
0134 , 
0133 
0136 
0137 , 
0139 
0139 
0140 . 
0141 
0143 
0143 i 
0144 
0143 
0146 , 
0147 
0140 
0149 | 
0130 
0131 i 
0192 . 
0133 . 
0134 . 
0133 i 
0130 
0137 
0130 
0139 , 
0160 
0161 
0162 
0163 
0164 
0163 
0166 
0167 
0160 . 
0169 
0170 
0171 
0172 
0173 
0174 , 
0173 
0176 
0177 i 
0170 
0179 

0100 i 
0101 , 
0102 i 

0183 . 
0184 , 
0185 . 
0106 
0107 
0180 

0190 
0191 
0192 
0193 
0194 
0193 
0196 
0197 , 
0190 
0199 
0200 
0201 
0202 
0203 
0204 . 
0203 
0200 
0207 . 
030B 
030« 
0310 
0311 
0312 
0213 
0214 i 
0313 
0216 
0217 
0210 
0219 
0220 | 
0221 
0222 
0223 
0224 
0233 
0226 • 
0337 
0220 
0339 , 
0330 
0231 
0232 
0233 , 
0234 
0233 
023* 
0237 
0230 
0239 , 
0240 . 
0241 . 
0342 , 
0343 . 
0244 


0246 , 
0247 , 
0240 . 
0249 . 
0230 t 
0231 , 
0333 
0333 i 
0334 , 
0333 
0256 
0237 
0330 
0339 : 
0260 
0361 
0362 
0363 
0364 
0263 , 
0266 
0267 

0260 i 


FARBEl 

FARBE! 

OBEN 

UNTEN 

KZHMAL 

BASIC 

BLTUC 


•EOOO 

»A000 

«A3BF 


I PARBE OBEN 
, FARBE UNTER 
. RASTERZEILE OBEN 
i RA STERZE! LE UNTEN 

i BLOCK VERSCHIEBE 


8TY 

Jan 


UND MODIFIZIEREN 


•160 

»E4DA 

1E344 

•»OB 

•E9DB 

MIO 

BE909 

• SF9 
*E9DA 
M60 
CE90S 

•106 

• *£A 
IE363.X 


STA SE8F7 


. HCME-DEFÜHL UEBER9PRIN5EN 


SPRITE ZUM VERDECKEN ERZEUGEN 


SPRITES 

LOOP3 


•141 . SPRITE-BLOCK 

•SOO i ERZEUGEN 

•33T.X 


EHE LOOPS 

LDX MOC 
LOA »»FF 
STA (CISC.X 
DEX 

BNE LOOP4 


iKOORDINATEN EINLESEN 


MIO 

•»00 

XKODR-l.X . X-KOORD!RATEN 
SPRI7TOX-2.Y 


BNE LOOPS 


MIO 

»UNTTN-1 . UNTERE RASTERZEILE IN 
8PSITE0Y-2.X . »-KOORDINATEN 


•»08 

MOD 

•07F7.X 


•FARBEl . FARBEN 
SPRITTOCOL-l.X 

LOOP» 

•*11000000 , X-POBITION>233 


i S0N9TI0E PARAMETER 


•irr i 
SXEXPANO 
irrt xi> AMD 
SPRITESAH , 
START 


UND EIK3CIIALTEN 


• BPRITE-XCCWH WATTN • 

XXOOR BYTE »14,»II,»60.»93 

BYTE »BC.IE6.»10.I3A 

• RASTER-IRQ EINDTELLEN • 


CIAIRQ i TIMER-INTERRUPT AUS 
•*01111111 
•*00000001 
CIAIRO 

MW . RASTERZEILE FUER IRQ 

RASTER i VORVAEHLEH 

CON7ROL1 

••7T 

ccormoLi 


Listing 17. Quellcode 
»HIRES-TEXT«. 




SONDERHEFT 17 


107 









































GRUNDLAGEN 


C64 


0289 

0270 

0271 

0272 

0273 i 

0274 

0273 

0278 

0277 i 

027B 

0270 i 

0280 

0201 

0282 i 

0289 i 
0284 i 
0283 i 

0286 i 

0287 
0288 
0280 i 

0290 

0291 

0292 

0299 i 

0294 i 

0298 , 

0296 i 

02*7 t 

0298 

0290 

0300 i 

0301 i 

0302 

0303 

0304 

0303 . 

0306 

0307 

030* 

0300 i 

0310 i 

0311 

0312 

0313 

0313 . 

0918 i 

0317 > 

0318 i 

031t 

0320 

0321 . 

0322 

0323 

0324 

0323 r 

0326 i 

0327 

0328 

0329 

0330 • 

0331 

0332 

0333 

0334 j 

0333 

0934 

0337 i 

0338 

0339 i 

0340 

0341 

0342 i 

0343 

0344 : 

0343 

0346 

0347 : 

0348 


LOA *<IRQPUO s Z EIGER FUIH NEUEM IRQ 
STA IKQVECTOKL i SETZEN 
LOA «»1R0PLUS 
STA 1R0VECT0RH 

LOA RASTER * AUT ZEILE‘UNTEN WARTEN 
CMP »UNTEN i (SONST r_AOCESHl 
BCS WEITEM 

JHP WAIT1 


NEUE llfl ER B U PnmUTlWt 


RASTER 
• UNTEN 
ISTUNTEN 


OBEN ODER UNTEN? 


BITMAP AB 12000 


UM CONTROLS 
ORA 9900 
STA CONTROLS 

LOA C0NTR0L1 
ORA 9920 
8TA CONTROL! 


LOA «UNTEN i UNTE RT ZEILE HIEB NAECKOTEN 

STA RASTER , IRQ 

JHP 1RQAB3CHLUS8 


UNTERE* TEIL 


CONTROLS i BILOSOIIRRSPEICHER AUF 
Ml! 110111 i RORRALEN PLATZ (90400) 
CONTROLS 


CONTROL 1 i 
MllOllUl 
CONTROL1 


4923 

LOOP2 


BCS WEITERS 


i WARTESCHLEITE 


, CURSOR UEBERPRUEPER 


i UND SETZEN. FALLS NOETIO 


RASTER 

IRQNORRAL 


ZUR KORKALEN IRQ 


Listing 17. Qellcode 
»HIRES-TEXT« (Schluß) 


Name 

hi/te 

-shift 

o 


cOOO cl85 

cOOO 

4c 

56 

cO 

a2 

00 

aO 

eO 

86 

91 

c008 

5f 

84 

60 

a2 

00 

86 

5a 

86 

cO 

cOlO 

5b 

86 

58 

86 

59 

20 

bf 

a3 

72 

c018 

a2 

00 

aO 

aO 

86 

5f 

84 

60 

2d 

c020 

a2 

00 

aO 

cO 

86 

5a 

84 

5b 

06 

c028 

86 

58 

84 

59 

20 

bf 

a3 

a9 

08 

c030 

60 

8d 

da 

e4 

a9 

88 

8d 

d8 

71 

c038 

e9 

a9 

10 

8d 

d9 

e9 

a9 

f 9 

33 

c040 

8d 

da 

e9 

a9 

60 

8d 

db 

e9 

aO 

c048 

a2 

06 

a9 

ea 

9d 

65 

e5 

ca 

e7 

c050 

dO 

fa 

a9 

35 

85 

01 

a 2 

41 

lo 

c058 

a9 

00 

9d 

3f 

03 

ca 

dO 

f a 

10 

c060 

a2 

12 

a9 

ff 

9d 

3c 

03 

ca 

d3 

c 068 

dO 

f a 

aO 

10 

a2 

08 

bd 

b5 

ac 

c070 

cO 

99 

fe 

cf 

88 

88 

ca 

dO 

50 

c078 

f 5 

a2 

10 

a9 

24 

9d 

ff 

cf 

c6 

c080 

ca 

ca 

dO 

f 9 

a2 

08 

a9 

Od 

4e 

c088 

9d 

f 7 

07 

9d 

f 7 

Ob 

ca 

dO 

3b 

c090 

f 7 

a2 

08 

a9 

06 

9d 

26 

dO 

97 

c098 

ca 

dO 

fa 

a9 

cO 

8d 

10 

dO 

18 

cOaO 

a9 

00 

8d 

lc 

dO 

8d 

lb 

dO 

bB 

c0a8 

a9 

ff 

8d 

ld 

dO 

8d 

17 

dO 

cf 

cObO 

8d 

15 

dO 

4c 

be 

cO 

14 

3e 

44 

c0b8 

68 

92 

bc 

e6 

10 

3a 

a9 

00 

ef 

cOcO 

8d 

84 

cl 

78 

ad 

Od 

de 

29 

18 

c0c8 

7f 

09 

01 

8d 

Od 

de 

a9 

24 

64 

cOdO 

85 

fe 

a5 

fe 

8d 

12 

dO 

ad 

25 

c0d8 

11 

dO 

29 

7f 

8d 

11 

dO 

a9 

84 

cOeO 

81 

8d 

la 

dO 

a9 

fa 

8d 

14 

99 , 

c0e8 

03 

a9 

cO 

8d 

15 

03 

ad 

12 

e6 

cOfO 

dO 

c5 

fe 

bO 

03 

4c 

ee 

cO 

48 

cOf 8 

58 

60 

ad 

19 

dO 

8d 

19 

dO 

8e 

QlOO 

ad 

12 

dO 

c5 

fe 

bO 

59 

a9 

dl 

Cl08 

00 

8d 

21 

dO 

ad 

18 

dO 

29 

62 

cllO 

Of 

09 

28 

8d 

18 

dO 

ad 

11 

40 

cl 18 

dO 

09 

20 

8d 

11 

dO 

ad 

84 

7e 

cl20 

cl 

fO 

17 

ad 

00 

de 

6a 

90 

87 

cl28 

06 

6a 

90 

Oe 

38 

bO 

29 

a6 

44 

cl30 

fe 

eO 

24 

fO 

23 

c6 

fe 

38 

9a 

cl38 

bO 

08 

a6 

fe 

eO 

cO 

fO 

13 

74 

cl40 

e6 

fe 

a 2 

10 

a4 

fe 

cB 

c8 

47 

cl48 

98 

9d 

ff 

cf 

ca 

ca 

dO 

f 9 

e3 

cl50 

38 

bO 

05 

a9 

01 

8d 

84 

cl 

69 

cl58 

a5 

fe 

8d 

12 

dO 

4c 

bc 

fe 

82 

cl60 

a9 

06 

8d 

21 

dO 

a2 

25 

ca 

eO 


ol68 : dO fd ad 18 dO 29 07 09 2a 

cl70 : 10 8d 18 dO ad 11 dO 29 60 

0178 : df 8d 11 dO a9 Oa 8d 12 cl 

cl80 : dO 4o 31 ea 00 00 00 00 20 

Listing 18. MSE-Listing »HI/TE- 
SHIFT.O«. Hires und Text mit glei¬ 
tendem Übergang. Start mit SYS 
49152. 


090« i 
0907 ? 

0208 i 

0909 j 

0310 ! 

0311 . 

0912 

0319 

0314 i 

0313 i 

031« 

0317 

0918 

091* 

0320 , 

0321 

0322 

0223 

0324 i 

0323 

0326 

0327 ■ 

0328 

032* 

0330 

0391 

0912 

0333 i 

0934 

0333 

033« : 

0337 i 

0338 . 

0339 

0340 

0341 

0342 : 

0343 

0344 i 

0343 

0346 

0947 j 

0348 i 

0349 : 

0330 

0931 

0352 

0953 t 

0334 

0333 i 

0936 

0337 

0338 

0339 

0360 

0361 

0362 

03« 3 

0364 

0365 

0966 

0367 r 

0968 . 

0369 

0370 

0371 

0372 . 

0373 , 

0374 , 

0373 

0376 

0377 

0378 i 

0379 i 

0380 , 

0381 i 

0382 i 

0383 , 

0384 i 

0383 

0386 , 

0387 , 


JOYABFRAOE LDA 


CONTROLS i BITRAP AB B192-VBANK 

•800001111 i 

M00101000 

CONTROLS 

CONTROL1 , BITRAP EIN 

••20 

CONTROL! 


JOYPORT2 i JOYSTICK ABTRAGEN 

ROR 

BCC HACHODEN 
ROR 

BCC NAQM(7EN 
SEC 

BCS WEITER! , KEIN JOYSTICK 


BEQ 

DEC 


um» 

•UNTENWENT 

WEITEH1 


i NACH OBEN 5CS0LLEH 


8C0 SPRITETRANSFER 


LDX INTEN 
CPX *OARZUNTEN 
BEQ TLAG1ERASS 


INC UNTEN 


i NACH UNTEN SCROLLEN 


H r=L 


LDA UN TEN 
STA RASTER 
JK? IRQABSCHLUSS . 


DIVERSE FLAGS • 

•BYTE *00 , SCHO« EINMAL GANZ UNTEN T 


Listing 19. Quellcode »HI/TE 
SHIFT«. So wird der weiche Über¬ 
gang erzeugt. 


Name 

softsprite. 



cOOO c07a 

cOOO 

78 

a9 

7f 

8d 

Od 

de 

a9 

81 

40 

c008 

8d 

la 

dO 

a9 

la 

8d 

14 

03 

70 

cOlO 

o9 

cO 

8d 

15 

03 

20 

5d 

cO 

48 

c018 

58 

60 

ad 

19 

dO 

8d 

19 

dO 

ae 

c020 

ad 

00 

de 

6a 

90 

06 

6a 

90 

56 

c 026 

Od 

4c 

3f 

cO 

ce 

01 

dO 

ce 

19 

c030 

01 

dO 

6a 

4c 

3f 

cO 

ee 

01 

76 

c038 

dO 

ee 

01 

dO 

4c 

3f 

cO 

6a 

70 

c040 

90 

06 

6a 

90 

Oc 

4c 

5a 

cO 

8e 

c048 

ce 

00 

dO 

ce 

00 

dO 

4c 

5a 

91 

c050 

cO 

ee 

00 

dO 

ee 

00 

dO 

4c 

6c 

c058 

5a 

cO 

4c 

31 

ea 

a9 

01 

8d 

67 

c060 

15 

dO 

a9 

Od 

8d 

f 8 

07 

a2 

eb 

c068 

64 

8e 

00 

dO 

8e 

01 

dO 

a2 

a7 

c070 

40 

a9 

ff 

9d 

40 

03 

ca 

10 

aO 

C078 

fa 

60 

10 

a9 

24 

9d 

ff 

af 

aa 


Listing 20. MSE-Listing »SOFT- 
SPRITE.O«. Joystick-gesteuertes 
Sprite im Rasterinterrupt. 

Start SYS 49152. 


Name : laufSchrift.o cOOO cl50 


cOOO : 

78 

ad 

Od 

de 

29 

7f 

09 

01 

e2 

c008 : 

8d 

Od 

de 

a9 

10 

8d 

12 

dO 

df 

COlO : 

ad 

11 

dO 

29 

7f 

8d 

11 

dO 

e9 

c018 : 

a9 

81 

8d 

la 

dO 

a9 

29 

8d 

43 

c020 : 

14 

03 

a9 

cO 

8d 

15 

03 

58 

76 

c 028 : 

60 

ad 

19 

dO 

8d 

19 

dO 

a 2 

e9 

c030 : 

00 

e8 

bd 

cO 

07 

ca 

9d 

cO 

ea 

c038 : 

07 

e8 

eO 

28 

dO 

f 3 

ee 

4f 

f 7 

c040 : 

cl 

ac 

4f 

cl 

b9 

4e 

cO 

ca 

Oa 

C048 : 

9d 

cO 

07 

4c 

31 

ea 

09 

03 

25 

o050 ; 

08 

20 

17 

15 

05 

Oe 

13 

03 

e4 

c058 : 

08 

05 

20 

09 

08 

Oe 

05 

Oe 

2d 

c060 : 

20 

17 

05 

09 

14 

05 

12 

08 

30 

c068 : 

09 

Oe 

20 

16 

09 

05 

Oc 

20 

6c 

c070 : 

: 13 

10 

01 

13 

13 

20 

02 

05 

72 

c078 : 

09 

Od 

20 

12 

01 

13 

14 

05 

55 

o080 : 

: 12 

15 

Oe 

14 

05 

12 

02 

12 

30 

c 088 : 

05 

03 

08 

05 

Oe 

20 

20 

20 

54 

c090 : 

: 20 

20 

20 

20 

20 

20 

20 

20 

90 

c098 : 

: 20 

20 

20 

20 

20 

20 

20 

20 

98 

cOaO ; 

; 20 

20 

04 

09 

05 

13 

05 

20 

30 

c0a8 ; 

: 13 

03 

08 

12 

09 

06 

14 

20 

d3 

cObO : 

: 09 

13 

14 

20 

la 

09 

05 

Od 

64 

c0b8 : 

: Oc 

09 

03 

08 

20 

13 

03 

OB 

cl 

cOcO : 

: Oe 

05 

Oc 

Oc 

20 

15 

Oe 

04 

cO 

c0c8 : 

: 20 

01 

15 

03 

08 

20 

07 

01 

ae 

cOdO : 

: Oe 

la 

20 

13 

03 

08 

Of 

05 

Od 

cOdB : 

: Oe 

20 

13 

Of 

06 

14 

20 

20 

5f 

cOeO 

: 20 

20 

20 

20 

20 

20 

20 

20 

eO 

c 0 e 8 : 

: 20 

20 

20 

20 

20 

20 

20 

20 

e8 

cOf0 : 

: 20 

20 

20 

20 

20 

20 

20 

09 

c2 

cOf 8 

: 03 

08 

20 

07 

12 

15 

05 

13 

ec 

clOO 

: 13 

05 

20 

01 

Oc 

Oc 

05 

20 

34 

cl08 

: 06 

01 

Oe 

13 

20 

04 

05 

13 

dl 

cllO 

: 20 

03 

2d 

36 

34 

20 

21 

20 

cd 

cll8 

: 20 

20 

20 

20 

20 

20 

20 

20 

18 

cl 20 

: 20 

20 

20 

20 

20 

20 

20 

20 

20 

cl28 

: 20 

20 

20 

20 

20 

20 

20 

Oe 

04 

cl30 

: 01 

2c 

20 

09 

Od 

Od 

05 

12 

e2 

cl38 

: 20 

Oe 

Of 

03 

08 

20 

01 

Od 

23 

cl40 

: 20 

02 

01 

Oc 

Oc 

3f 

20 

20 

9f 

cl48 

: 20 

20 

20 

20 

20 

20 

20 

ff 

08 


Listing 21. MSE-Listing »LAUF- 
SCHRIFT.O«. Eine einfache Lauf¬ 
schrift durch SYS 49152 zu starten. 


013» i....... 

019* (• EINFACHE LAUFSCHRITT 

0140 i» IR RASTER INTERRUPT • 

0141 i..... 

0142 i 
0149 i 

0144 ..... 

0143 i- NEUE* INTERRUPT 

0146 ,•••••••»•••••••••«••.................. 

0147 i 

0140 IRCWEU LDA IROTLAO . INTERRUPT 

0149 STA IRQFLAO . AUSLESE* 

oiao i 

0131 LDX *900 

0132 LOOP1 1NX 

0133 LDA ADRESSE.X 

0134 DEX 

0133 STA ADRESSE,X i SCROLLEN 

0136 INX 

0137 CPX 6128 , 40HAL-EINE ZEILE 

0130 BNE LOOP1 

0139 i 

0160 INC SAVE i HAXCHSTEN 

0161 LDY DAVE i BUCHSTABEN AUS 

0162 LDA TEXT.Y , TABELLE HOLEN 

0143 DEX 

0144 ETA ADRESSE.X 

0143 . 

014« i.... 

0147 i» INTERRUPT BEENDEN 

0140 . 

014* | 

0170 ENDE .IMP IRQNORRAL • BETRIEBSSYSTEM 

0171 j 

0172 i.... 

0179 i» TEXT DER LAUTSCHRIFT • 

0174 ,«••••. 

017* i 

0176 .TEXT .VIDEO "ICH WUENSCHE IHNEN WEITERHIN' 

0177 i .VIDEO VIEL SPASB BEIN RASIXRUNTER' 

0178 i .VIDEO "BRECHEN 

017* i .VIDEO “DIESE 9CHRIPT IST ZI ML ICH *" 

0180 t .VIDEO CHNELL UND AUCH GANZ SCHOCH 0‘ 

0181 « .VIDEO "OTT 

0182 i .VIDEO “ICH 0RUES3E ALLE FANS DES C-" 

01E3 i .VIDEO “44 I 

0184 i .VIDEO "NA. IMKER NOCH AR BALL? 

018* i .VIDEO ’ 

01*4 i 

0187 i. 

0100 I« HILT33PEICHERSTELLEN • 

018 * .... 

0190 i 

0191 SAVE .BYTE tTT , POSITION IH DER SCHRIFT 


Listing 22. Quelltext »LAUF¬ 
SCHRIFT«. Quelltext zur Laufschrift 
aus Listing 22. 
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SONDERHEFT 17 






































C64 


GRUNDLAGEN 


Name : speedschrift.o oOOO cla6 


oOOO : 

78 

ad 

Od 

de 

29 

7f 

09 

01 

e2 

c008 : 

8d 

Od 

do 

a9 

01 

8d 

12 

dO 

ef 

cOlO : 

ad 

11 

dO 

29 

7f 

8d 

11 

dO 

e9 

c018 : 

a9 

81 

8d 

la 

dO 

a9 

29 

8d 

43 

o020 : 

14 

03 

a9 

cO 

8d 

15 

03 

58 

76 

c028 : 

60 

ad 

19 

dO 

8d 

19 

dO 

ad 

ff 

o030 : 

12 

dO 

c9 

f 2 

bO 

la 

•8 

00 

fd 

c038 : 

8d 

20 

dO 

a9 

oO 

8d 

16 

dO 

bl 

o040 : 

ad 

a5 

ol 

fO 

03 

20 

84 

cO 

13 

c048 : 

a9 

f 2 

8d 

12 

dO 

4c 

31 

ea 

la 

o050 : 

a9 

06 

8d 

20 

dO 

a9 

cO 

Od 

db 

0058 : 

a4 

ol 

8d 

16 

dO 

aO 

00 

8c 

2 e 

c060 : 

a5 

cl 

ao 

a3 

cl 

ce 

a4 

cl 

2e 

0068 : 

ad 

a4 

cl 

c9 

ff 

dO 

Oa 

a2 

05 

c070 : 

01 

8e 

•6 

cl 

a2 

07 

8e 

a4 

40 

c078 : 

Ol 

88 

dO 

o9 

a9 

01 

8d 

12 

ec 

c080 : 

dO 

4c 

bo 

fe 

a2 

00 

eB 

bd 

ce 

o088 : 

oO 

07 

ca 

9d 

cO 

07 

e8 

eO 

de 

o090 : 

28 

dO 

f 3 

ee 

a2 

cl 

ac 

a2 

2b 

c098 : 

ol 

b9 

al 

cO 

ca 

9d 

cO 

07 

61 

oOaO : 

60 

09 

03 

08 

20 

17 

15 

05 

60 

c0a8 : 

Oe 

13 

03 

08 

05 

20 

09 

08 

87 

oObO : 

Oe 

05 

Oe 

20 

17 

05 

09 

14 

ae 

o0b8 : 

05 

12 

08 

09 

Oe 

20 

16 

09 

36 

oOeO : 

05 

Oc 

20 

13 

10 

01 

13 

13 

bl 

0O08 : 

20 

02 

05 

09 

Od 

20 

12 

01 

68 

oOdO : 

: 13 

14 

05 

12 

15 

Oe 

14 

05 

8d 

c0d8 : 

12 

02 

12 

05 

03 

08 

05 

Oe 

bl 

cOeO : 

: 20 

20 

20 

20 

20 

20 

20 

20 

eO 

c0e8 : 

20 

20 

20 

20 

20 

20 

20 

20 

e8 

cOf0 : 

: 20 

20 

20 

20 

20 

04 

09 

05 

7d 

cOf 8 : 

: 13 

05 

20 

13 

03 

08 

12 

09 

c3 

olOO : 

: 06 

14 

20 

09 

13 

14 

20 

la 

cO 

cl08 : 

: 09 

05 

Od 

Oc 

09 

03 

08 

20 

62 

ollO : 

: 13 

03 

08 

Oe 

05 

Oc 

Oc 

20 

8a 

0118 : 

: 15 

Oe 

04 

20 

01 

15 

03 

08 

Oe 

Ol20 : 

: 20 

07 

01 

Oe 

la 

20 

13 

03 

bb 

0128 : 

: 08 

Of 

05 

Oe 

20 

13 

Of 

06 

9e 

Cl30 : 

; 14 

20 

20 

20 

20 

20 

20 

20 

24 

0138 : 

: 20 

20 

20 

20 

20 

20 

20 

20 

38 

Cl40 : 

! 20 

20 

20 

20 

20 

20 

20 

20 

40 

cl48 ■ 

: 20 

20 

09 

03 

08 

20 

07 

12 

dd 

ol50 : 

: 15 

05 

13 

13 

05 

20 

01 

Oc 

7d 

0158 : 

; Oo 

05 

20 

06 

01 

Oe 

13 

20 

bd 

Cl60 : 

: 04 

05 

13 

20 

03 

2d 

36 

34 

8b 

0168 : 

: 20 

21 

20 

20 

20 

20 

20 

20 

e9 

Cl70 : 

: 20 

20 

20 

20 

20 

20 

20 

20 

70 

cl78 : 

: 20 

20 

20 

20 

20 

20 

20 

20 

78 

0180 : 

: 20 

20 

Oe 

01 

2c 

20 

09 

Od 

56 

Cl88 : 

: Od 

05 

12 

20 

Oe 

Of 

03 

08 

16 

cl90 

: 20 

01 

Od 

20 

02 

01 

Oc 

Oc 

e9 

0198 : 

: 3f 

20 

20 

20 

20 

20 

20 

20 

b7 

olaO : 

: 20 

20 

ff 

03 

00 

00 

00 

00 

31 


Listing 23. MSE-Listing »SPEED¬ 
SCHRIFT.O«. Unsere Laufschrift in 
verschiedenen Geschwindigkeiten. 
SYS 49152 



0156 , 

0157 

0130 

0139 s 

0160 

0161 

0162 > 

0163 

0164 

0165 

0166 , 

0167 

0160 

0169 


flaoi i paus puo 

WZI7ER8 I GESETZT. 3PUUH0 

HA HD i ZUR HARDSCROLLROmNE 

•UNTEN 

RASTER 

1HQH0RMAL 


UNTETiZH TEIL 


0174 | 

0173 

0176 

0177 | 

0170 

0170 

0100 

0101 . 

0102 

0103 

0104 i 

0105 

0106 

0107 4 

0100 

0109 

0170 

0191 

0192 

0192 

0194 

0103 

0196 

0197 , 

0190 t 

0199 

0200 

0201 

0202 i 

0303 i 
0204 i 
0303 i 

0206 i 

0307 

0300 

0209 

0310 

0211 

0212 

0213 

0214 

0213 ? 

0216 

0217 

0210 

0219 

0320 

0231 i 

0322 

0223 i 

0224 . 

0225 . 

0236 i 

0327 i 

0220 i 

0229 
0230 i 
0231 i 
0232 i 
0233 4 
0234 i 
0235 i 
0236 i 
0237 ( 
0230 ] 
0239 i 
0240 i 
0241 , 
0242 ; 
0243 i 
0244 
0245 
0246 
0247 


99C0 

H80PT 

CONTROLJ 


Hsorr 

•*rr 

VE! Tritt 
•101 
TLAOl 

0907 


< REIM IIXRMCROLLE» 
i BOTTBCROLLXN 


. SCHON 0103 * 2 WERT’ 


i PLAO rUEB KARDBCROLL 


HAMOCNOLUOVTINE 


LDA ADRESSE,* 

an 

£TTA ADRESSE. * , SCROLLEN 


i 40KAL-EIMC ZEILE 


SAVE i KAECHSTTN 

SAVE ; BUCHSTABEN AUS 

TEJTT.Y i TABELLE HOLE» 


STA ADRESSE.X 


TEXT DER UUTSCHRirr 


•VIDEO 

.VIDEO 

.VIDEO 

.VIDEO 

.VIDEO 

.VIDEO 

-VIDEO 

.VIDEO 

.VIDEO 


IHNEN WEITERHIN' 

■ VIEL 5PASS DEIK RASTEPUNTER- 
‘BRECHEN 

'DIESE SCHRIFT IST ZIEMLICH S* 
■CMNELL LWD AUCH GANZ 3 CH OER 3' 
-orr 

-ICH ORUESSE ALLE PARS DES C- 1 ' 
”64 ' 

•TIA. IMKER NOCH AM BALLT 


HILFSSPEI CHERgTELLEH 




Listing 24. Quelltext »SPEED¬ 
SCHRIFT«. So scrollen wir in 
variablen Geschwindigkeiten. 


Name 

mondland 

c 



0801 Obe2 

0801 

lb 

08 

00 

00 

9e 

28 

32 

30 

75 

0609 

38 

30 

29 

20 

54 

48 

45 

20 

85 

0811 

46 

52 

49 

80 

53 

20 

2e 

2e 

2e 

0819 

2e 

00 

00 

00 

54 

42 

43 

a2 

fl 

0821 

e9 

bd 

32 

08 

9d 

ff 

00 

ca 

e6 

0829 

dO 

f 7 

78 

86 

01 

ca 

9a 

4c 

4d 

0831 

00 

01 

aO 

00 

84 

fd 

84 

fe 

22 

0839 

a9 

e2 

a2 

Ob 

85 

ae 

86 

af 

a5 

0841 

a9 

lc 

a2 

09 

85 

ac 

86 

ad 

f 5 

0849 

20 

81 

01 

a9 

01 

a2 

08 

85 

fO 

0851 

ae 

86 

af 

bl 

fd 

c9 

13 

dO 

80 

0859 

10 

a9 

00 

48 

20 

a2 

01 

aa 

b7 

0861 

68 

20 

a8 

01 

ca 

dO 

fa 

fO 

25 

0869 

Od 

c9 

Ob 

dO 

06 

20 

a2 

01 

26 

0871 

48 

dO 

e9 

20 

a8 

01 

20 

bl 

16 

0879 

01 

dO 

d8 

ae 

b8 

01 

ca 

30 

Od 

0881 

24 

bd 

b9 

01 

85 

fe 

85 

2e 

d5 

0889 

ca 

bd 

b9 

01 

85 

fd 

85 

2d 

79 

0891 

ca 

bd 

b9 

01 

85 

ad 

ca 

bd 

35 
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OICO 

• fanmrt*ni i 

ING UniEP MEHRERE 


0101 

• ZEILEN 



0104 



49132 


0103 

0106 
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FARBE: 

- 

12 j 

KU1. nCOLOPTARBKN 

0100 

FARBE2 


14 


0100 

FAHBE'j 


15 , 

1‘AKflE BEI SCRNCLK 

0110 

KHTARBE 


00 

HAIOON UND H1 NTEHSRIWO 

0111 

OBEN 


63 

RA'JTTRZE I LE OBEH 

0112 

UNTEN 
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llAtiTERZEILE UNTEN 

0119 



IC4 

HAITOSCHOLL- ZEILEN 

0114 
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0115 

r w. 


10400 

FUER BILDSCHIRMSPB1CHER 

0116 

NLVOIAH 


12000 

ADRESSE ZEICHENUAT2 

0117 

BCRNCLR 


II-.344 

DI LOSCH 1 RR LOCOaON 

0110 

■MAX 

« 

71 I 

AUSDEHNUNG DES SCROLLSCRED 

0119 

0120 

XWERT 
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251 i 

9PEICHERSTXUj;ri 

0121 

0122 

POINTEN 
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LDA 

. iIROPI US 
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Listing 27. MSE-Listing »DOP- 
PELSCROLL.C«. Softscrolling joy¬ 
stickgesteuert, Start durch RUN. 
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0266 
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0376 

0277 

0270 

0279 

0280 
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0282 
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0284 
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0286 
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0289 WEITERE 


JCYSTlCKABFRAGE 


BEO WEITERS 


...ZUHUEOt 
; BEWESUNO ERLAUBT' 
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BCC 


JOYPCHTZ : NEIN . 


LINKSNDVE . SCROLLINO NACH LINKS 
RECHTSMOVE , ODER »ACH RECHTS . 
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0441 

0442 
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0446 

0447 
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LOA 

BEO 


FLAG2 ; VOLLE 
•MAXSPEED ; SPEED? 
«5HEA 


PLA02 

«antra» 

HACHLIHK3 


HIER WIRD PER CODE DER EINZELNEN 
ROUTINEN 50 MODIFIZIERT. DASS DAS 
NAEC1ISTE SCROLLINO NACH LINUS 
ERTOLOT 


l rua NACH LINKS 


NACH LINKS 


HIER WIRD DER CODE SER EINZELNEN 
ROUTINEN BO ÄXHFIZIEHT. DASS DAS 
HAECXSTE SCROLLINO NACH RECHTS 
ERTOLOT 


NACHMXHTS LOA 


i FLAG NACH RECHTS 


Listing 28. Quelltext »DOPPEL- 
SCROLL«. So wird per Joystick die 
Scrollrichtung geändert. 
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20 

20 

20 

50 

c558 

20 

08 

20 

20 

20 

20 

20 

20 

4c 

o560 : 

20 

20 

20 

20 

20 

20 

20 

20 

60 

c568 : 

20 

20 

20 

20 

20 

20 

20 

20 

68 

0570 : 

20 

20 

20 

20 

20 

20 

20 

20 

70 

c578 : 

20 

20 

20 

20 

20 

08 

20 

20 

b8 

c580 : 

20 

20 

20 

20 

20 

20 

20 

20 

80 

c588 : 

20 

20 

20 

20 

20 

20 

20 

20 

88 

o590 : 

20 

20 

20 

20 

20 

20 

20 

20 

90 
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20 

20 

20 

20 

20 

20 

20 

20 

98 

o5aO 

20 

08 

20 
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20 

20 
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20 
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20 
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20 
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bO 
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20 

b8 

o5oO 

20 

20 

20 

20 

20 

08 

20 

20 

00 
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20 

20 

20 

20 

20 

20 

20 

20 

c8 

o5d0 

20 

20 

20 

20 

20 

20 

20 

20 

dO 

o5d8 

20 

20 

20 

20 

20 

20 

20 

20 

dB 

o5e0 

20 

20 

20 

20 

20 

20 

20 

20 

eO 

o5e8 

20 

08 

20 

20 

20 

20 

20 

20 

do 

c5f0 

20 

20 

20 

20 

20 

20 

20 

20 

fO 

o5f 8 

20 

20 

20 

20 

20 

20 

20 

20 
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o600 

20 

20 

20 

20 

20 

20 

20 

20 
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c608 

20 

20 

20 

20 

20 

20 

20 

20 

08 

c610 

20 

20 
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20 

20 

20 

10 
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20 
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20 
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20 

20 
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20 
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50 
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20 

20 

58 
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20 
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20 
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20 
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20 
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20 
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20 
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20 

20 

70 
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04 

20 

20 

20 

20 

20 

20 

20 

5c 

c680 

20 

20 

20 

20 

20 

20 

20 

20 

80 

0688 

00 

07 

01 

02 

20 

20 

20 

20 

50 

0690 

20 

20 

20 

20 

20 

20 

20 

20 

90 

0698 

20 

20 

20 

20 

20 

20 

20 

20 

98 

o6a0 

20 

20 

20 

20 

20 

20 

20 

20 

aO 

o6a8 

20 

20 

20 

20 

20 

20 

20 

20 

a8 

o6b0 

20 

20 

20 

20 

20 

20 

20 

20 

bO 

c6b8 

20 

00 

02 

20 

20 

04 

20 

00 

00 

c6c0 

01 

02 

20 

20 

20 

20 

20 

20 

92 

0608 

20 

20 

20 

20 

20 

20 

00 

03 

Oe 

c6dO 

01 

01 

01 

01 

06 

20 

20 

20 

d5 

c6d8 

20 

20 

20 

08 

20 

20 

20 

20 

d5 

o6eO 

20 

04 

20 

20 

20 

20 

20 

20 

d2 

c6e8 

20 

20 

20 

20 

20 

20 

20 

20 

e8 

c6f0 

20 

20 

20 

20 

20 

20 

04 

00 

40 

c6f 8 

02 

20 

20 

20 

20 

20 

20 

20 

da 

o700 

00 

07 

01 

03 

05 

01 

03 

07 

97 

o708 

01 

01 

03 

02 

20 

08 

20 

20 

8 e 

o710 

00 

02 

20 

20 

20 

00 

01 

01 

26 

0718 

07 

01 

01 

01 

07 

02 

20 

20 

42 

c720 

20 

20 

20 

20 

20 

20 

20 

20 

20 

c728 
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01 

02 

20 

20 

20 

20 

20 

fl 

c730 

20 

20 

20 

20 

20 

20 

20 

20 

30 

0738 

20 

20 

20 

20 

20 

00 

01 

01 

7d 

o740 

01 

03 

02 

20 

20 

20 

04 

05 

65 
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01 

01 

01 

01 

01 

01 

01 

01 

48 

o750 

01 

01 

01 

01 

03 

02 

05 

03 

8 d 

0758 

01 

01 

03 

02 

05 

01 

01 

01 

39 

o760 

01 

01 

07 

01 

01 

01 

06 

20 

34 

0768 

20 

20 

20 

00 

05 

03 

02 

05 

lb 

c770 

01 

07 

01 

06 

20 

20 

20 

20 

ba 

0778 

20 

20 

20 

20 

20 

20 

20 

04 

40 

o780 

20 

20 

20 

04 

05 

01 

01 

07 

a3 

0788 

01 

07 

01 

06 

20 

00 

01 

07 

22 

c790 

01 

01 

01 

01 

01 

01 

01 

01 

90 

o798 

01 

01 

07 

01 

01 

01 

01 

01 

la 

o7a0 

01 

01 

01 

01 

01 

01 

07 

01 

b9 

o7a8 

01 

01 

01 

01 

01 

01 

01 

03 

ad 

o7b0 

02 

20 

00 

01 

07 

01 

01 

01 

61 

o7b8 

01 

01 

01 

01 

02 

05 

03 

05 

f 9 

c7c0 

05 

05 

05 

03 

05 

02 

00 

01 

4c 

o7c8 

02 

00 

03 

01 

01 

01 

01 

01 

c9 

o7dO : 

01 

01 

01 

01 

03 

01 

01 

01 

fl 

o7d8 

01 

01 

01 

07 

01 

01 

01 

01 

99 

o7e0 : 

07 

01 

01 

01 

01 

01 

01 

01 

e6 

o7e8 : 

07 

01 

01 

01 

01 

01 

01 

01 

ee 

o7f0 

01 

01 

01 

01 

01 

07 

01 

01 

21 

c7f 8 

01 

03 

01 

01 

01 

01 

01 

01 

f 9 

o800 

01 

01 

01 

01 

01 

01 

01 

01 

00 

0808 

01 

01 

01 

01 

01 

01 

01 

01 

08 

c810 

01 

01 

01 

01 

01 

01 

01 

01 

10 

0818 

01 

01 

01 

01 

01 

01 

01 

01 

18 

c820 

01 

01 

01 

01 

01 

01 

01 

01 

20 

0828 

01 

01 

01 

01 

01 

01 

01 

01 

28 

c830 

01 

01 

01 

01 

01 

01 

01 

01 

30 

0838 : 

01 

01 

01 

01 

01 

01 

01 

01 

38 

c840 : 

01 

01 

01 

01 

01 

01 

01 

01 

40 

0848 

01 

01 

01 

01 

01 

01 

01 

01 

48 

o850 : 

01 

01 

01 

01 

01 

01 

01 

01 

50 
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GRUNDLAGEN 
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: 01 

01 

01 

01 

01 

01 

01 

01 
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01 
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01 

80 
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: 01 

01 

01 

01 

01 

01 

01 

01 

88 

o890 : 

01 

01 

01 

01 

01 

01 

01 

01 

90 

0898 : 

01 

01 

01 

01 

01 

01 

01 

01 

98 

c8a0 : 

01 

01 

01 

01 

01 

01 

01 

01 

aO 

o8a8 : 

: 01 

01 

01 

01 

01 

01 

01 

01 

a8 

o8b0 : 

01 

01 

01 

01 

01 

01 

01 

01 

bO 

08b8 : 

01 

01 

01 

01 

01 

01 

01 

01 

b8 

080O : 

01 

01 

01 

01 

01 

01 

01 

01 

oO 

c8c8 : 

01 

01 

01 

01 

01 

01 

01 

01 

08 

c8d0 : 

01 

01 

01 

01 

01 

01 

01 

01 
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o8d8 : 
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01 

01 

01 

01 

01 

01 

01 

d6 

c8e0 : 

01 

01 

01 

01 

01 

01 

01 

01 

eO 

c8e8 : 

01 
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01 
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o8f0 : 

01 
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01 
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01 

01 

fO 
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: 01 

01 

01 

01 

01 

01 

01 

01 

f 8 

o900 ; 
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01 

01 

01 

01 

01 

01 

00 

c908 : 

: 01 
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01 

01 

01 

01 

01 

01 

08 

o910 : 

01 

01 

01 

01 

01 

01 

01 

01 

10 

c918 : 

: 01 

01 

00 

00 

00 

00 

55 

40 

70 

o920 : 

05 

55 

50 

05 

56 

64 

25 

95 

cd 

0928 : 

: 55 

55 

5d 

56 

5f 

76 

75 

55 

74 

c930 : 

e5 

d9 

59 

77 

55 

55 

5d 

55 

67 
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: 55 

dd 
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50 

19 
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fc 
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eb 
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2c 
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00 
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57 

00 
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00 

57 

00 
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7d 

c8 
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16 
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ff 

00 

00 

00 

00 

14 

00 

24 

o9e0 

: 00 
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55 

bl 
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55 

80 

02 
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02 
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c9f 0 
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80 

01 

aa 
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02 

aa 

aO 

70 

o9f 8 

: 56 

96 

95 

76 

aa 

9d 

7d 

aa 

bO 

oaOO 

: 7d 

7d 

55 

7d 

lf 

ff 

f 4 

17 

35 
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: dd 

f 4 

05 

ff 

dO 
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ff 

40 

36 
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55 

00 
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bb 

cal8 

: 00 

00 

00 

03 

03 

Of 

Oe 

3a 

ce 

ca 20 

: ea 

ea 

ea 

aa 

aa 

aa 

aa 

aa 

8f 

ca28 

: aa 

aa 

aa 

oO 

bO 

bO 

bO 

ao 

97 

oa30 

: ac 

ab 

ab 

f 3 

ae 

ab 

aa 

aa 

63 

ca38 

aa 

aa 

aa 

00 

00 

00 

00 

00 

e2 

ca40 

! 2c 

3b 
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Listing 32. »PER-SCROLL.O« 
(Schluß) 


0000 

0000 

0100 

0101 

0102 

0103 

0104 

0103 

0104 

0107 

0100 

0100 

0110 

0111 

ona 

0113 

0114 

0113 

0116 

0117 

0110 

0119 

0120 

0131 

0132 

0133 

0124 

0123 

0126 

0127 

0128 

0120 

0130 

0131 

0132 

0133 

0134 

0133 

0136 

0137 

0138 

0130 


färbe i 

farbe2 

FARBE3 

MO'MUIE 

OBEN 

UHTtH 

HZOOSN 

HZWTTH 

ouiorv 

NEWCHAR 

BCRNCLR 

XMAX 

xwnirr 

pointer 

OAVtl 

ZEIT 


■0400 

■2000 

•E344 


, SPRITEBEZOGEXE VARIABLEN 

LASTBLOCH - *7? 

SPOINTER - 00778 

VERSATZ - »30 

SPRITEBLOCX - »3200 


i MULTICOLORTARBEH 

! FARBE HEI BCRNCLR 
, »AHMEN UND HINTERGRUND 
i RABTERZEILE OBEN 
i RABTERZEILE UNTEN 
l ItARDBCROLL-ZZ I LEN 

i EUER BUDBCHIRMSPE1CHER 
. ADRESSE ZXlCHDISArZ 
i BILDSCHIRM LOE3CHEN 
, AUSDQOAÄO DES OCPOLLOCREEH 


I VERZOeOERLWSVERT 
i EXTREMA DER 
! GESCHWINDIGKEIT 


. L ETZ T ER BLOCK 
, BLOQCPO INTER 
i X-ABSTAND 
i »7C*64 

i ANFANG DER DATEN 


‘ RASTER-IRQ EINSTELLEN 


0140 
0141 
0142 
0143 
0144 
0143 
0146 
0147 
0140 
0149 
0130 
0131 
0133 
0133 
0134 
0133 
0136 
0137 
0130 
013« 
0160 
0161 
0162 
0163 
0164 
0163 
0166 
0167 
0166 
0160 
0170 
0171 
0172 
0173 
0174 
0173 
0176 
0177 
0170 
0170 
0100 
0101 
0102 
0103 
0104 
0103 
0106 
0167 
0100 
010« 
0190 
0101 
0102 
0103 
0194 
0193 
0196 . 
0197 
0190 
0199 
0200 
0201 . 
0202 i 

0203 i 
0204 : 
0203 i 
0206 . 
0207 
0208 
0209 
0210 
0211 
0312 
0213 ; 
0214 . 
0213 
0216 
0217 
0210 
0219 . 
0220 
0221 
0222 
0223 
0224 
0223 
0226 
0227 

0229 . 
0230 
0231 
0232 - 
0233 : 
0234 
0233 
0236 
0237 , 
0230 . 
0239 i 
0240 - 
0241 : 
0242 . 
0243 
0244 
0243 
0246 
0247 i 
0240 
0240 
0230 i 
0231 
0232 
0233 
0234 
0233 
0236 , 
0237 
0230 
023» 
0260 . 


CI AIRS , TINER-1NITHRUPT AUS 

•*01111111 
•*00000001 
CIAIRQ 

•OBEN 
RASTER 
COMTROL1 
•«7r 
camioLi 


KIDOPU» . ZEIG ERSETZEN 
IRQVECTORL 
■ jirqpuib 
IRQVECTOMI 

IN1T , SCR0LL5CRXKN IH1T 

ZEICHENS»!? . ZE1CHDISA72 EINLESEN 
SCRNCLR i BILDSCHIRM LOMCHEN 
rnx .MIT nvo 0PACK3 hjkllen 

SPRITES SHIT , SPRITES INITIALISIEREN 
KEN0RYIMI7 . SPTICIIER IRIT 
NACHL1NKO , NAG) LINKS 


P09IT10NDCS 

OCROLLOCREXND 


NACMOCIR® INITIALISIEREN 


LDA •< KACHBCHUR . ERSTE ADRESSE DES 

STA POINTT* , 3CROLLBCREEN IN 

LDA ♦ »HACHSOWB , POINTER BCHREIDEN 

STA POINTER.! . 

RTS 


HEUE INITRIIUPTIO/TIlIE 


RASTER 

•UNTEN 

ISTUNTEN 


OBERER TEIL 


MDD1FA3 

WEITER» 


STA CCNTR0L2 


BUH WEITER» 
LDX «SOI 
STX FLAOl 


; SCHON GRENZWERT» 


. TLAG rUER HAK!SCHOLL 


i? ^ 


BNE LOCPA 


LOA «UNTEN 
STA RASTER 
JMP IRQABSCHLUSS 


UNTERER TEIL 


• *CQ 

CONTROL3 

4(13 

CONTROLS 


FLA« 

WEITER? 

HA KD 
•■00 
TLAOl 

•OBEN 
RASTER 
IRCNORMAL 


UNTEN KEIN 
ISOTT)-SCROLLEN 
UNTEN NORMALER 


i PALLS FLAG 
i GESETZT. SPRUNG 
i ZUR HARDSCROLLBOUriNE 


0242 

0263 

0264 

0260 

0266 

0267 

0260 

0269 

0270 

0271 

0272 

0273 

0274 

0273 

0276 

0277 

0270 

027« 

0280 

0201 

0202 

02R3 

0204 

0283 

0208 

0307 

028« 

020 » 

0290 

0291 

0292 

0293 

0204 

0293 

0296 

0297 

0290 

029B 

0300 

0301 

0302 

0303 

0304 

0303 

0306 

0307 

0300 

0309 

0310 

0311 

0312 

0313 

0314 

0313 

0316 

0317 

0318 

0319 

0320 


ABFRAGEN UND MODIFIKATIOItSROUTIHEM 


JOYBTI «ABFRAGE 


JOYABFRAGE LDA 


WERT i KRITISCHE STELLE 

•41 i IM SCROLLSCREENT 

WEITERE i JA, DANN ZURUECK 


. BEVtOUNO ERLAUBT» 


LDA J0YPCRT3 


DCC LIHKSN3YE i SCROLLIHO NACH LINKS 


JOYSTICK BEVtOUNO NACH RECHTS • 


RECHT5TRAE0 DCC 


. SONST ZUBUECK 


0321 

0322 

0323 

0324 

0323 

0326 

0327 

0320 

0329 

0330 

0331 

0332 

0333 

0334 

0333 

0336 

0337 

0330 

033» 

0340 

0341 

0342 

0343 

0344 . 

0343 i 

0346 

0347 

0340 

034» 

0330 i 

0331 

0383 

0333 

0334 

0339 

0336 

0337 

0130 

0339 i 

0340 | 

0361 , 

0362 i 

0163 

0364 

0163 

0366 

0367 

0368 

0369 

0370 

0371 , 

0372 « 

0373 i 

0374 

0373 

0376 

0377 

0370 

0370 

0300 

0301 

0303 

0383 

0384 i 

0383 i 

0386 i 

0387 

0388 

0389 i 

0390 i 

0391 

0392 

0393 

0304 

0393 . 

0396 

0397 

0398 

0399 j 

0401 
0402 : 
0403 
0404 ; 
0405 
0406 
0407 j 
0408 
0409 

0411 

0412 

0413 j 

0414 

0413 i 

0416 s 

0417 

0418 ; 

0419 i 

0420 i 

0421 i 

0422 j 

0423 > 

0424 i 

0423 

0426 

0427 

0420 

042» ■ 

0430 

0431 

0432 . 

0433 

0434 

0433 ( 

0436 

0437 

0430 

0439 i 

0440 

0441 

0442 i 

0443 

0444 

0443 

0446 i 

0447 

0440 

0449 . 

0430 . 

0431 | 

0432 i 

0403 i 

04S4 j 

0433 i 

0436 ( 

0437 i 

0430 i 

0430 , 

0460 i 

0461 

H462 

0463 

0464 i 

0463 i 

0466 , 

0467 

0460 

0469 

0470 

0471 

0472 

0473 , 

0474 , 

0473 , 

0476 , 

0477 i 

0470 

0479 

0400 

0401 

0402 

04B3 

0484 , 

0403 . 

0486 i 

0487 

0488 

0489 

0400 

0491 

0402 

0493 

0494 

0493 

0498 

0407 ; 

0498 , 

0409 . 

0300 


1STRSCHTBA LDA 


FLAG2 i 
■HAISPEED , 
HQMEA 


rU02 

•NIMSPEED 

MACHLIMC3 


HIER WIRD DEB CODE DER EINZELNEN 
ROUTINE» SO MODIFIZIERT. DASS DAS 
NAECK9IZ SCROLLING NACH LINKS 
ERFOLGT 


i fUO NACH LI WS 


•901 

RICHTUNG 
•100 

WWJPRITE . KEINE BEWEG UNO 


i SOTTBCIIOLLI NO 


LDA MCE 
STA LQOPA 
LDA «irr 
STA MC01FA2.1 
LDA 6»07 
STA M30IFA3*1 

BEHÄND UNO DER »-AUSDEHNUNG 


• »E6 

MODirA4 

•XMAX 


. CODE FUER INC ZEROPAOE 


STA MODI FAS»1 
LDA 901 
STA MODITA6.1 


KARD8CROUINS EINER ZEILE 

LDA *100 
STA LOOPl.l 
LDA «ICB 
STA SCHOLL 
STA HODITXB 
LDA «IBS 
STA K0DIFA7 


i ANTANGBVERT 
, ZEILDfSCROLL 
i CODE FUER IKY 


i CODE FUER DEY 


EVENTUELL XWERT Ul 41 ERHOEHEN 


STA XWERT 

LDA XWERT 
CHP «XMAX 
BCC WEITERH 


SBC «XMAX 
STA XWERT 


: UEBESPHUETUNGSFLAG 


JSR SPR1TECHANGSL , SPRITEBEWEGUiG 


LIHK3TRAEG DEC 


VEBZL 

VERZL 

CK2 


, SONST ZURUECK 


JNP HOME» 


FLA02 

•MIKSPEED 

NACHRECHTS 


HIER WIRD Döl CODE DER EINZELNEN 
ROUT INEN SO WOiriZIERT. DAOO DAS 
NAECHSTE SCROLLING NACH RECHTS 
ERFOLGT 


NACHRECHTS LOA 


SOmtCROLLIHQ 


i FLAO »ACH RECHTE 


•800 

Richtung 
NOSPRITE , KEINE BEWEGUNG 


•*EE 

LOOPA 

•»00 

WOIFAJ.l 

•■00 

MCOIFAa.l 


BEHANDLUNG DER X-AU3DDOMIO 


i CODE rUER DEC ZEROPAOE 


6»C6 
>*»IFA4 
••00 , BEHANDLUNG DES 

MXIFA3.1 i X-WERTS 
•XMAX 
MCCIFA8.1 


: AHTANQSWEHT 
: ZEILENBCA3LL 
. CODE FUER IMY 


HARDOCROLLINC EINER ZEILE 

LDA 439 

STA LOOPl.l 

LDA ♦»00 

STA SCROU. 

STA MOOIFAO 

LDA »»CO i CODE rUER OEY 

STA KOtr»7 

LDA «100 : ENDWEHT öl LEH¬ 
NT» HCOIFA9.1 i SCHOLL 

STA MODI TAI 1*1 

EVENTUELL XWERT UM 41 VERRINGERN 

LDA FLA04 i XWERT-41! 
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C64 


GRUNDLAGEN 



0682 i 

0683 A1D0P3 

0684 

0683 

o«86 »eoirs 

068? 

0688 i 
068» 

0690 

0691 i 

0692 

0693 

0694 

0693 

0606 

0697 UX0 
0890 , 

0699 

0700 

0701 

0702 

0703 i 

0704 

0703 

0706 

0707 | 

0708 i 

0709 i 

o7:o vp 

0711 

0712 

0713 

0714 

0713 

0716 

0717 

0718 

0719 

0720 

0721 

0722 

0722 i 

0724 

0723 l 

0726 i. 

0727 i» 

0728 ... 

0729 ! 

0730 GROESSER 

0731 

0732 

0733 

0734 AJ8JDIP3 
0735 i 

0736 M8301P4 

0737 

0730 

0739 , 

0740 . 

0741 ZPOT 


PCX 

DEX 

DEY 


TU02 

•602 


•100 

ruos 

• *03 

wwotrs»! 

•80E 

*807 

ALOOP4 


9PRITE7X i 
BPRITE3X i 
3X233 i 
9*11011111 
8X233 . 

8X289 i 
6*10000000 


i 2. DUBCHOANO? 


l NEIN. DANN WERTE 
< niEB DIESEN EIH- 
i STEUER 


DUÄCH0AH53EAEHLE8 
VERÖLEICH9WEHT 


HIER WIRD DIE 
X-KOORDINATE VON 
3PRITE7 HIT UE8EP- 
UUf IN OIE ENT¬ 
SPRECHENDEN REOISIXR 
VON SPRITES 
0C3CKRIE8EN 


X-WERT W GRENZE 


3X333 | ENTSPRECHENDES 

ZPOT,V , BIT IN IÄDER- 

0X233 < TPA0.7REO t STER 

ZPOT,Y , LCCSCHEK BZW, 

»LOOP3 t SETZEN 

*800 

BPRITEOX.X 

ALQ0P3 


.BYTE 801.602.804.808.810.820.840.>60 


0742 i 
0743 i 

0744 i..... 

0743 :• BEWEGUNG DES UFO-SPRITES 

0747 | 

0748 UPOSPRITE LDA JOYPOJTT2 . JOYSTICK 
0749 ROR i ABFRAGE* 

0730 BCC N»CHOSEN 

0751 ROR 

0732 DCC NACXUNTEN 

0733 JHP UI 

0734 , 

0733 NACHUWTEH ROR 

0736 INC BPRITZ4Y j SPRITE NACH 

0737 INC SPHITE4Y , UCEN BEWEGEN 

0738 INC 8PR1TE4Y 

0739 JHP Ut 

0760 i 

0761 »ACHOBEN DEC SPRITE4Y , SPRITE NACH 

0762 DEC SPRITE4Y 

0763 DEC SPR1TE4Y 

0764 JHP UI 

0763 | 

0766 u: 

0767 j 
0768 

0769 .• KOLLI S!CMSABPItAQEROUnNE • 

0770 ..... 

0771 i 

0772 KOLL LDA SPHITEXOLL-l i K0UI01ERT7 

0773 AND 6*00010000 

0774 BNE WKOLL 

0?75 BIS . KEIN 

0776 j 

0777 WKOLL INC 3PRITE4C0L i JA! 

0770 RTO 

0779 i 

0780 |.......... 

0781 j* . 

0782 ;• INITIALIS1EXUNGSROUTINEN 

0783 i» • 

0784 ,.... 

0783 , 

0786 | 

0787 i 
0788 i 

0789 ,...... 

0790 ;• ZE1CHEN3ATZDEPIHITION • 

079! ...... 

0792 i 

0793 ZEICHENS*72 LDX 60 

0794 LCOP2 UJA CHAR.X 

0793 STA NEWCHAR.X 

0796 m 

0797 SNE LOOP2 

0798 j 

0799 LDX 90 

0800 LDA 60 

0801 LOOP3 STA NZWCHAR.(8*321,X i SPACE-ZEICHEN 

0802 INX 

0003 CPX >8 

0004 BNE LOOPS 

0803 i 

0006 i 

0007 LDA 9RHPAR8C i HAI WEH UND HIHTER- 

0006 STA RAI WEN , GRUND OCHWARZ 

0809 STA HINTER0RUND1 

0810 i 

0811 LDA 6PAR8E2 i NULT1COLORPARBEN 

0812 STA HimTROHU»2 

0813 LDA •FAMiiKl 

0814 STA Hl NITRO RUNDS 

0013 LDA •PARBES .»-OBEIN 

0816 S!t 646 . DILDKHIRHL0E3CHER 

081? RTB 

0018 i 


0020 . 
0821 . 
0822 i 

0823 , 

0024 . 

0023 , 

0826 

0027 

0626 ; 

0629 

0610 

0831 

0832 

0833 

0824 

0833 

0838 

0897 

0838 

08)9 . 

0840 i 

0841 

0842 

0843 

0044 

0843 

0B4« 

0947 

0849 | 

0849 

0030 i 

0831 

0032 . 

0033 

0834 . 

0835 

0056 i 

0837 . 

0838 i 

0859 r 

0860 : 


HIT RXV BPACI PUCLLXN 


LDX 6HZUNTZN 


SBC 

»TA 

»TA 

LDA 


6(01 

H0D1P16*1 

ICOIP17*l 

HICH.X 

H30IP16.2 


MAO | REVERSES SPACE 
DUHHY.Y 

rARBEN-HZUWITN.l.X 

DL90CY.Y 


•HZUNTEN*6 

LOOPS 


SPRITES INITIALISIEREN 


0861 
0862 
0863 
0864 
0863 
0066 
0867 
0068 
0869 
0870 
0871 
0872 
0871 
0874 
0873 
0876 
0877 
0878 
0079 
0880 
OMI 
0882 
0881 
0884 
0883 
0886 
0887 
0M8 
0889 
0890 
0091 
0892 
0891 
0894 
0899 
0096 
0897 
0890 
0899 
0900 
0901 
0902 
0901 
0904 
0903 
0906 
0907 
0908 
0909 
0910 
0911 
0912 
0911 
0914 
0913 
0916 
0917 
0910 
0919 
0920 
0921 
0922 
0923 
0924 
0923 
0928 
0927 
0928 
0929 
0930 
0931 
0912 
0913 
0924 
0933 
0936 
003? 
0938 
0939 
0940 
0941 
0942 
090 
0944 
0943 
0546 
0947 , 
0940 . 
0949 , 
0930 . 
0931 ; 
0932 . 
0933 
0934 
0933 
0936 
0937 
0935 
0939 > 
0960 

0961 


0963 

0964 

0965 

0966 

0967 

0968 

0969 

0970 

0971 

0072 

0973 

0974 

0973 

0976 


SPRITES1NIT LDA 


STA SPRITEOX.X . Y-KOOKDINATEH 


BPL ALOOP1A 


LDA 6118 | 

LDX 6800 
STA SPRITEOX.X 
CLC 

ADC »VERSATZ 


X-KOORD!RATEN 


8PRITELOOP LDA 


•0 . DATEN EINLESEN 

SP RITTDATEN, X 
OPRITZBLOCX.X 


OLOCKPOIN1TS BETZEN 


BHE SPDITELOOP 

LDA 66C0 i 
STA SPOINTER 
STA SPOINTER*! 
LDA 66C9 
STA SPOINTER*! 
OTA SPOINTER*3 
LDA RICA 
STA SPOINTER.3 
STA SPOINTER.* 
OTA OPOINTER.7 
LDA #ICB 
STA BPOINTEB*4 

LDA 6I0P , 

STA SNJLTt 1 i 

LDA 6600 
STA BNULTI2 


•906 , EINZELNE 

3PRITEOCOL . BPRITEPARBEN 
SPR1TE2COL 

•902 

3PRITX1COL 

•904 

BPR1TE3COL 

*906 

3PRITE3COL 

SPRI TE6COL 

»PSITE7CCL 

•902 

SPAITE4COL 

•*00010000 i RESTLICHE 
5XEXPAND . PARAMETER 
•*11100000 
SPRITEPR10 

**momi 

SYEXPAND 
•*11111111 
SPRITTNULTI 
•*11111111 
SPRITESAN i IN... 


HE3KHIY1NIT LDX 6MC 


STA 

DEX 

BPL 


ruai.x 

HLOOP 


.BYTE 600.$03.900.101 
•BYTE »00.601.>03.901 


.BYTE »01.900.»00.901 


TABELLEN 


3TSEIPEH7ARDEN • 

FARBEN .BYTE 90C.»OP.»OP.601.»01.901.601 


0977 i 
0978 t 

0970 ..•••••. 

0980 ,* TABELLE fU*fl ADRESSEN DER 
0961 .* ANPAENOE DER 81LOSCHI»«ZEILEN 


0981 


0383 

0906 


0990 

0991 


0993 

0904 

0093 

0994 

0997 

099B 

099» 

1000 

1001 

1002 

1003 

1004 
1003 
1006 

1007 

1008 

1009 

1010 
1011 
1012 
1013 


BYTE 100.»28.630.»78.»AO.«CB.»PO 

■BYTE »18.140.»60.<00.IDO.»CO 
.BYTE »OB.»30.»38.»00,»AB,»DO,»PO 

BYTE »20.»48,»70.»98.»CO.»E8 
BYTE »04.104,904.104.»04.»04.»04 
.BYTE »03.103.»03.103.»03.»03 
•BYTE »06.(06.»06.»0».(06.»06.»0» 
.BYTE 607,»07.»07.«07.»07.*07 


SICHER BYTE »00.»00 

• MILP33PEICKERSTELLZH 


PLAOl 
FLAG 2 
PL AG 3 
FLA 04 
FLA03 
RICHTUNG 


.BYTE »00 
BYTE »03 
BYTE »00 
BYTE »01 
.BYTE 600 
.BYTE 101 
.BYTE »03 


, HARD3CRQLL JA-NEIN 
, GESCHWINDIGKEIT 
i 41 ADOIEREX 
i AUS TEST HOLEN? 

AN AWHAO NACH LINKS 
ZWISCHENSPEICHER PUER 
i 50PT-TEIL 
VEnZOEOEBUHOSWERTE 


SPRITESPEQ BYTE 00 
HELP1 .BYTE 00 

WOSPRITE .BYTE 01 


Listing 33. Quelltext 
»PER-SCROLL«. Aufbau unseres 
kompletten Scrollprogramms 
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GRUNDLAGEN 


C64 


Name : 

5-f 

schrlft. 

c 


0801 0e76 

0801 

lb 

08 

00 

00 

9e 

28 

32 

30 

75 

0809 

38 

30 

29 

20 

54 

48 

45 

20 

85 

0811 

46 

52 

49 

80 

53 

20 

2e 

2e 

2e 

0819 

2e 

00 

00 

00 

54 

42 

43 

a2 

fl 

0821 

e9 

bd 

32 

08 

9d 

ff 

00 

ca 

e6 

0829 

dO 

f 7 

78 

86 

01 

ca 

9a 4c 

4d 

0831 

00 

01 

aO 

00 

84 

fd 

84 

fe 

22 

0839 

a9 

76 

a2 

Oe 

85 

ae 

86 

af 

cf 

0841 

a9 

lo 

a2 

09 

85 

ac 

86 

ad 

f 5 

0849 

20 

81 

01 

a9 

01 

a2 

08 

85 

fO 

0851 

ae 

86 

af 

bl 

fd 

c9 

24 

dO 

c5 

0859 

10 

a9 

00 

48 

20 

a2 

01 

aa 

b7 

0861 

68 

20 

a8 

01 

ca 

dO 

fa 

fO 

25 

0869 

Od 

c9 

22 

dO 

06 

20 

a2 

01 

eb 

0871 

48 

dO 

e9 

20 

a8 

01 

20 

bl 

16 

0879 

01 

dO 

d8 

ae 

b8 

01 

ca 

30 

Od 

0881 

24 

bd 

b9 

01 

85 

fe 

85 

2e 

d5 

0889 

ca 

bd 

b9 

01 

65 

fd 

85 

2d 

79 

0891 

ca 

bd 

b9 

01 

85 

ad 

ca 

bd 

35 

0899 

b9 

01 

85 

ac 

8e 

b8 

01 

20 

bd 

08al 

81 

01 

4c 

49 

01 

a9 

37 

85 

24 

08a9 

01 

29 

06 

c9 

06 

dO 

01 

58 

95 

08bl 

4c 

00 

cO 

a5 

fd 

dO 

02 

c6 

de 

08b9 

fe 

c6 

fd 

a5 

ae 

dO 

02 

c6 

55 

08cl 

af 

c6 

ae 

bl 

ae 

91 

fd 

a5 

70 

08c9 

ae 

c5 

ac 

dO 

e6 

a5 

af 

c5 

85 

08dl 

ad 

dO 

eO 

60 

20 

bl 

01 

bl 

21 

08d9 

fd 

60 

91 

ae 

e6 

ae 

dO 

02 

6c 

08el 

e6 

af 

60 

e6 

fd 

dO 

02 

e6 

dO 

08e9 

fe 

60 

04 

01 

08 

70 

c7 

03 

62 

08f 1 

03 

03 

03 

03 

03 

03 

03 

03 

fl 

08f 9 

03 

03 

03 

03 

03 

03 

03 

03 

f 9 

0901 

03 

03 

03 

03 

03 

03 

03 

03 

01 

0909 

03 

03 

03 

03 

03 

03 

03 

03 

09 

0911 

03 

03 

00 

a9 

00 

20 

71 

a8 

e3 

0919 

4c 

ae 

a7 

78 

ad 

Od 

de 

29 

be 

0921 

7f 

09 

01 

Bd 

Od 

de 

a9 

c2 

fb 

0929 

8d 

12 

dO 

ad 

11 

dO 

29 

7f 

e4 

0931 

8d 

11 

dO 

a9 

81 

8d 

la 

dO 

3f 

0939 

a9 

41 

8d 

14 

03 

a9 

cO 

8d 

04 

0941 

15 

03 

a9 

00 

8d 

20 

dO 

8d 

7a 

0949 

21 

dO 

a9 

01 

8d 

86 

02 

20 

b2 

0951 

44 

e5 

20 

d9 

cO 

20 

61 

cl 

el 

0959 

58 

4c 

80 

a4 

ad 

19 

dO 

8d 

8e 

0961 

19 

dO 

ad 

12 

dO 

c9 

ff 

bO 

4d 

0969 

34 

a9 

dO 

Od 

75 

cl 

8d 

16 

Of 

0971 

dO 

a9 

18 

8d 

18 

dO 

aO 

00 

58 

0979 

8c 

70 

cl 

ac 

71 

cl 

ce 

75 

8e 

0981 

cl 

ad 

75 

cl 

c9 

ff 

dO 

Oa 

a2 

0989 

a2 

01 

8e 

70 

cl 

a2 

07 

8e 

c8 

0991 

75 

cl 

88 

dO 

e9 

a9 

ff 

8d 

2a 

0999 

12 

dO 

4c 

bc 

fe 

a9 

cO 

8d 

19 

09al 

16 

dO 

a9 

15 

8d 

18 

dO 

ad 

65 

09a9 

70 

cl 

fO 

08 

20 

al 

cO 

a9 

9c 

09bl 

00 

8d 

70 

cl 

a9 

c2 

8d 

12 

d7 

09b9 

dO 

4c 

31 

ea 

20 

e2 

cO 

20 

b5 

09cl 

d9 

cO 

a2 

12 

aO 

00 

bd 

7d 

el 

09e9 

cl 

85 

fb 

bd 

97 

cl 

85 

f c 

9b 

09dl 

e8 

eO 

19 

dO 

01 

60 

c8 

bl 

23 

09d9 

fb 

88 

91 

fb 

c8 

cO 

27 

dO 

cd 

09el 

f 5 

bl 

fd 

91 

fb 

e6 

fd 

dO 

fi 

09e9 

02 

e6 

fe 

4c 

a9 

cO 

01 

02 

50 

09f 1 

03 

04 

05 

06 

a9 

ac 

85 

fd 

Oa 

09f 9 

a9 

cO 

85 

fe 

60 

20 

25 

cl 

63 

OaOl 

ad 

76 

cl 

aa 

bd 

b3 

cl 

18 

60 

0a09 

6d 

77 

cl 

85 

fb 

90 

04 

a9 

fa 

Oal 1 

01 

bO 

02 

a9 

00 

18 

7d 

d6 

85 

0al9 

cl 

85 

fc 

aO 

05 

bl 

fb 

99 

fl 

0a21 

d3 

cO 

88 

10 

f 8 

ad 

7a 

cl 

e3 

0a29 

18 

69 

01 

dd 

ld 

c6 

fO 

04 

c6 

0a31 

ee 

7a 

cl 

60 

20 

39 

cl 

8d 

c7 

0a39 

76 

cl 

a9 

00 

8d 

7a 

cl 

60 

6f 

0o41 

ad 

7a 

cl 

8d 

78 

cl 

Oa 

Oa 

lf 

0a49 

18 

6d 

78 

cl 

18 

6d 

78 

cl 

cO 

0a51 

8d 

77 

cl 

60 

ad 

7b 

cl 

65 

df 

Oa59 

fd 

ad 

7c 

cl 

85 

fe 

e6 

fd 

6c 

0a61 

a5 

fd 

8d 

7b 

cl 

dO 

07 

e6 

64 

0a69 

fe 

a5 

fe 

8d 

7c 

cl 

aO 

00 

03 

0a71 

bl 

fd 

dO 

03 

20 

61 

cl 

aO 

Ob 

0a79 

00 

bl 

fd 

60 

a9 

00 

8d 

7b 

a5 

0a81 

cl 

85 

fd 

a9 

c7 

8d 

7c 

cl 

18 

0a89 

85 

fe 

60 

00 

05 

00 

01 

01 

fc 

0a91 

03 

lb 

24 

07 

28 

50 

78 

aO 

34 

0a99 

c8 

fO 

18 

40 

68 

90 

b8 

eO 

97 

Oaal 

08 

30 

58 

80 

a8 

dO 

f 8 

20 

ld 

0aa9 

48 

70 

98 

cO 

e8 

22 

04 

07 

25 

Oabl 

22 

05 

06 

22 

06 

07 

22 

07 

4b 

0ab9 

06 

00 

00 

01 

17 

34 

52 

70 

ld 

Oaol 

8e 

ac 

ca 

e8 

05 

23 

41 

5f 

a2 

0ac9 

7d 

al 

bf 

dd 

fb 

19 

37 

55 

d2 

Oadl 

79 

97 

b5 

df 

03 

27 

45 

63 

c4 

0ad9 

6f 

8d 

a5 

c3 

el 

ff 

00 

22 

53 

Oael 

c2 

08 

22 

c3 

09 

22 

c4 

07 

6b 

0ae9 

22 

c5 

Oa 

22 

20 

lf 

01 

24 

fc 


Oaf 1 : 

03 

05 

20 

00 

03 

07 

06 

20 

40 

Oaf9 : 

20 

00 

04 

07 

06 

20 

20 

02 

el 

ObOl : 

24 

03 

05 

22 

20 

06 

15 

24 

fb 

0b09 : 

03 

14 

20 

00 

20 

00 

20 

00 

al 

Obll : 

20 

00 

Oe 

00 

Od 

00 

20 

02 

Oa 

Obl9 : 

Oa 

Ob 

Oc 

08 

22 

20 

07 

01 

ee 

0b21 : 

24 

03 

09 

20 

00 

03 

20 

12 

ca 

0b29 : 

00 

20 

00 

le 

20 

21 

00 

20 

49 

Ob31 : 

02 

ld 

20 

lf 

08 

22 

20 

07 

ce 

0b39 : 

15 

24 

03 

14 

20 

00 

20 

20 

67 

0b41 : 

20 

00 

20 

00 

04 

20 

11 

00 

ef 

Ob49 : 

20 

02 

24 

03 

08 

22 

20 

07 

f 4 

0b51 : 

15 

24 

03 

14 

20 

00 

lb 

00 

2a 

0b59 i 

19 

00 

20 

00 

20 

13 

20 

00 

96 

0b61 : 

20 

13 

20 

20 

20 

13 

22 

20 

7a 

0b69 : 

07 

15 

24 

03 

05 

20 

00 

lb 

ea 

0b71 : 

00 

lb 

20 

20 

00 

20 

13 

20 

99 

0b79 : 

20 

20 

13 

22 

20 

Ob 

01 

24 

59 

0b81 : 

03 

09 

20 

00 

03 

20 

12 

00 

8a 

Ob69 : 

20 

00 

le 

26 

21 

00 

20 

02 

8c 

0b91 : 

ld 

27 

00 

08 

22 

20 

07 

23 

o9 

0b99 •. 

24 

03 

05 

20 

20 

19 

00 

lb 

85 

Obal : 

20 

20 

20 

la 

00 

lc 

20 

20 

be 

0ba9 : 

23 

24 

03 

05 

22 

20 

Oc 

23 

d9 

Obbl : 

24 

03 

05 

22 

20 

16 

23 

09 

2e 

0bb9 : 

22 

20 

04 

12 

00 

22 

20 

04 

c8 

Obel : 

11 

00 

20 

23 

24 

03 

08 

22 

f e 

Obc9 : 

20 

07 

23 

24 

03 

05 

20 

20 

d3 

Obdl : 

29 

28 

2b 

20 

20 

29 

2a 

20 

11 

0bd9 : 

2c 

2b 

20 

2d 

20 

20 

20 

2d 

26 

Obel : 

22 

20 

07 

23 

24 

03 

14 

22 

29 

0be9 : 

20 

04 

19 

00 

22 

20 

05 

00 

89 

Obf 1 : 

22 

20 

05 

13 

22 

20 

07 

15 

31 

Obf 9 : 

24 

03 

05 

20 

2e 

2f 

31 

lc 

3e 

OcOl : 

20 

20 

20 

30 

00 

32 

20 

20 

92 

0c09 : 

33 

34 

35 

lb 

20 

20 

17 

24 

af 

Ocll : 

03 

05 

22 

20 

07 

15 

24 

03 

d3 

Ocl9 : 

05 

20 

2e 

2f 

31 

lc 

20 

20 

55 

0c21 : 

20 

36 

37 

2f 

38 

20 

18 

24 

3d 

0c29 : 

03 

16 

22 

20 

07 

01 

24 

03 

d3 

Oc31 : 

09 

20 

00 

03 

20 

12 

00 

20 

7e 

Oc39 : 

00 

04 

20 

11 

00 

20 

02 

24 

b7 

0c41 : 

03 

08 

22 

20 

07 

15 

24 

03 

85 

0c49 : 

05 

20 

00 

20 

00 

lb 

20 

20 

fc 

0c51 : 

00 

Od 

00 

20 

20 

20 

02 

00 

e7 

0c59 : 

08 

22 

20 

09 

01 

24 

03 

09 

eb 

Oc61 : 

20 00 03 20 12 00 V. 

00 

e8 

0c69 : 

04 

20 

3a 

00 

20 

02 

24 

03 

b5 

0c71 : 

39 

22 

20 

07 

15 

24 

03 

05 

2d 

0c79 : 

20 

00 

20 

00 

3c 

20 

20 

00 

e7 

0c81 : 

Od 

00 

3b 

3c 

20 

02 

00 

08 

07 

0c89 : 

3d 

3e 

22 

20 

07 

01 

00 

09 

fd 

0c91 i 

: 20 

3f 

20 

00 

41 

00 

20 

00 

ee 

0c99 : 

20 

00 

20 

00 

40 

00 

20 

13 

6c 

Ocal : 

: 20 

02 

00 

08 

22 

20 

07 

3f 

81 

Oca9 : 

22 

20 

05 

00 

lc 

22 

20 

04 

78 

Ocbl : 

: 24 

04 

05 

20 

00 

lb 

22 

20 

be 

0cb9 ! 

: 04 

13 

22 

20 

Ob 

23 

24 

03 

34 

Occl : 

: 09 

22 

20 

04 

12 

00 

22 

20 

4e 

Occ9 ; 

: 04 

11 

00 

20 

23 

24 

03 

08 

c9 

Ocdl : 

: 22 

20 

07 

42 

44 

46 

48 

20 

e5 

0cd9 : 

: 20 

43 

45 

47 

49 

4a 

20 

54 

e5 

Ocel : 

: 52 

4f 

4d 

4c 

20 

53 

51 

50 

3a 

Oce9 : 

: 4e 

22 

20 

08 

42 

44 

46 

48 

41 

Oof 1 

: 20 

20 

43 

45 

47 

49 

4a 

20 

c3 

Ocf 9 

: 20 

20 

57 

56 

4c 

20 

20 

20 

51 

OdOl 

: 59 

58 

4a 

20 

54 

52 

4f 

4d 

cd 

0d09 

: 4c 

20 

53 

51 

50 

4e 

22 

20 

a5 

Odll 

: 08 

63 

lc 

20 

la 

63 

20 

2e 

70 

0dl9 

: 2f 

5b 

5f 

5e 

20 

20 

30 

00 

5d 

0d21 

: 5d 

20 

20 

33 

34 

5a 

62 

61 

5f 

0d29 

: 20 

64 

lb 

20 

19 

64 

22 

20 

c4 

0d31 

: 07 

63 

lc 

22 

20 

04 

2e 

2f 

6e 

0d39 

: 31 

lc 

20 

20 

20 

30 

24 

03 

9f 

Od41 

: 20 

33 

34 

35 

lb 

20 

20 

64 

ab 

0d49 

: lb 

22 

20 

Oa 

3f 

20 

20 

68 

05 

0d51 

: 14 

20 

00 

20 

68 

69 

00 

20 

8c 

Od59 

: 00 

68 

69 

20 

00 

20 

17 

69 

lc 

0d61 

: 20 

20 

13 

22 

20 

29 

67 

22 

c8 

0d69 

: 20 

09 

3f 

22 

20 

05 

00 

22 

90 

0d71 

: 20 

05 

00 

22 

20 

05 

13 

22 

13 

0d79 

: 20 

Oa 

29 

6a 

20 

20 

20 

29 

Oc 

Od81 

: 2a 

22 

20 

04 

17 

24 

03 

05 

ee 

0d89 

: 22 

20 

07 

01 

00 

09 

6b 

09 

a5 

0d91 

: 20 

00 

41 

00 

20 

00 

20 

00 

84 

0d99 

: lc 

00 

21 

00 

20 

02 

24 

03 

a6 

Odal 

: 08 

22 

20 

07 

01 

00 

6c 

00 

65 

0da9 

: 09 

20 

00 

41 

00 

41 

00 

20 

35 

Odbl 

: 00 

Od 

00 

Od 

00 

20 

02 

00 

e3 

0db9 

: 6d 

00 

08 

22 

20 

07 

01 

24 

f 3 

Odcl 

: 03 

09 

20 

00 

lb 

00 

41 

00 

08 

Odc9 

: 20 

00 

le 

00 

Od 

00 

20 

02 

c6 

Oddl 

: ld 

02 

00 

08 

22 

20 

08 

3f 

b2 

Odd9 

: 20 

3f 

20 

20 

20 

00 

20 

00 

28 

Odel 

: 20 

20 

20 

00 

20 

00 

20 

20 

de 

0de9 

: 20 

13 

20 

13 

22 

20 

07 

22 

81 


Odf 1 : 

: 05 

09 

04 

05 

05 

05 

06 

22 

fl 

Odf9 : 

: 05 

06 

06 

05 

05 

07 

06 

06 

dO 

OeOl : 

: 05 

05 

02 

05 

04 

22 

05 

04 

18 

0e09 : 

24 

cO 

lb 

04 

09 

05 

13 

05 

e4 

Oell : 

: lb 

02 

15 

03 

08 

13 

14 

01 

3f 

Oel9 : 

: 02 

05 

Oe 

lb 

13 

09 

Oe 

04 

3f 

0e21 : 

: lb 

07 

12 

Of 

13 

13 

lb 

15 

87 

Oe29 : 

: Oe 

04 

lb 

05 

09 

Oe 

lb 

13 

34 

0e31 : 

: 03 

08 

Of 

05 

Oe 

06 

13 

lb 

28 

0e39 : 

: 07 

12 

01 

06 

09 

13 

03 

08 

90 

0e41 

: 05 

13 

lb 

Od 

09 

14 

14 

05 

c4 

0e49 : 

: Oc 

lb 

lb 

la 

15 

Od 

lb 

02 

17 

0e51 

: 05 

09 

13 

10 

09 

05 

Oc 

lb 

cl 

0e59 

: 06 

15 

05 

12 

lb 

04 

09 

05 

6d 

0e61 

i lb 

13 

03 

08 

01 

15 

06 

05 

a3 

0e69 

: Oe 

13 

14 

05 

12 

17 

05 

02 

99 

0e71 

: 15 

Oe 

07 

24 

07 

73 

b6 

a6 

08 


Listing 34. 

MSE-Listing »5-F SCHRIFT.C«. 
Dieses Programm erzeugt 
durch RUN eine Laufschrift aus 
5fach vergrößerten Buchstaben. 


Name : char5 2000 2400 


2000 : 

00 

ff 

00 

ff 

00 

ff 

00 

ff 

00 

2008 : 

00 

01 

00 

Of 

00 

3f 

00 

7f 

64 

2010 : 

00 

80 

00 

fO 

00 

fc 

00 

fe 

54 

2018 : 

00 

eO 

00 

80 

00 

00 

00 

00 

99 

2020 : 

00 

07 

00 

01 

00 

00 

00 

00 

c4 

2028 : 

00 

ff 

00 

ff 

00 

ff 

00 

7e 

25 

2030 : 

00 

ff 

00 

ff 

00 

00 

00 

00 

30 

2038 : 

: 00 

00 

00 

00 

00 

ff 

00 

ff 

38 

2040 : 

00 

f e 

00 

fa 

00 

fO 

00 

80 

e8 

2048 : 

00 

7f 

00 

3f 

00 

Of 

00 

01 

6a 

2050 : 

00 

ff 

00 

ff 

00 

ff 

00 

fe 

4e 

2058 : 

00 

fc 

00 

fO 

00 

fO 

00 

fc 

76 

2060 : 

00 

fe 

00 

ff 

00 

ff 

00 

ff 

df 

2068 : 

00 

03 

00 

00 

00 

00 

00 

01 

ec 

2070 : 

00 

01 

00 

00 

00 

00 

00 

03 

f 7 

2078 : 

00 

ff 

00 

ff 

00 

ff 

00 

7f 

77 

2080 : 

00 

7f 

00 

ff 

00 

ff 

00 

ff 

40 

2088 : 

: 00 

00 

00 

00 

00 

01 

00 

07 

9f 

2090 : 

00 

00 

00 

00 

00 

80 

00 

eO 

56 

2098 : 

: 00 

fc 

00 

fe 

00 

fe 

00 

fc 

e8 

20a0 : 

00 

ff 

00 

ff 

00 

ff 

00 

7f 

9f 

20a8 : 

: 00 

7f 

00 

ff 

00 

ff 

00 

ff 

68 

20b0 i 

00 

ff 

00 

ff 

00 

ff 

00 

fe 

ae 

20b8 : 

: 00 

fe 

00 

ff 

00 

ff 

00 

ff 

37 

20c0 : 

: 00 

7e 

00 

ff 

00 

ff 

00 

ff 

ff 

20c8 : 

: 00 

00 

00 

00 

00 

00 

00 

80 

ca 

20d0 : 

; 00 

00 

00 

00 

00 

00 

00 

01 

d3 

20d8 

: 00 

80 

00 

00 

00 

00 

00 

00 

19 

20e0 : 

: 00 

01 

00 

00 

00 

00 

00 

00 

61 

20e8 ' 

: 00 

ff 

00 

ff 

00 

3e 

00 

00 

da 

20f0 : 

: 00 

03 

00 

00 

00 

00 

00 

00 

72 

20f 8 

: 00 

00 

00 

00 

00 

ff 

00 

ff 

f 8 

2100 : 

: 00 

00 

00 

00 

00 

00 

00 

00 

01 

2108 

: 00 

oo 

00 

00 

00 

00 

00 

03 

Of 

2110 

: 00 

00 

00 

00 

00 

00 

00 

00 

11 

2118 

: 00 

7e 

00 

ff 

00 

ff 

00 

ff 

57 

2120 

; 00 

00 

00 

7c 

00 

ff 

00 

ff 

bO 

2128 

: 00 

00 

00 

00 

00 

00 

00 

cO 

aa 

2130 

: 00 

00 

00 

ff 

00 

ff 

00 

3f 

af 

2138 

i 00 

00 

00 

f 8 

00 

fe 

00 

ff 

4f 

2140 

: 00 

ff 

00 

fc 

00 

fc 

00 

ff 

c7 

2148 

: 00 

03 

00 

Of 

00 

3f 

00 

ff 

a6 

2150 

s 00 

ff 

00 

fc 

00 

fO 

00 

cO 

f 9 

2158 

: 00 

ff 

00 

3f 

00 

Of 

00 

03 

be 

2160 

: 00 

cO 

00 

fO 

00 

fc 

00 

ff 

c6 

2168 

: 00 

cO 

80 

fO 

00 

fO 

00 

cO 

10 

2170 

: 00 

eO 

00 

f 8 

00 

fc 

00 

fe 

e5 

2178 

: 00 

ff 

00 

ff 

00 

7f 

00 

3f 

f 2 

2180 

: 00 

00 

00 

81 

00 

c3 

00 

e7 

9f 

2188 

: 00 

lf 

00 

Of 

00 

07 

00 

03 

38 

2190 

: 00 

ff 

00 

7e 

00 

00 

00 

00 

60 

2198 

: 00 

07 

00 

lf 

00 

3f 

00 

7f 

f 9 

21a0 

: 00 

ff 

00 

ff 

00 

fe 

00 

fc 

92 

21a8 

: 00 

f 8 

00 

fO 

00 

eO 

00 

cO 

cb 

21b0 

: 00 

00 

00 

80 

00 

cO 

00 

eO 

88 

21b8 

: 00 

fO 

00 

f 8 

00 

fc 

00 

fe 

35 

21cO 

: 00 

lf 

00 

Of 

00 

07 

00 

01 

6c 

21c8 

: 00 

fe 

00 

fe 

00 

ff 

00 

8f 

46 

21d0 

: 00 

fO 

00 

fc 

00 

3f 

00 

Of 

00 

21d8 

: 00 

fc 

00 

ff 

00 

ff 

00 

3f 

d5 

21e0 

: 00 

Of 

00 

03 

00 

00 

00 

00 

c8 

21e8 

: 00 

00 

00 

00 

00 

cO 

00 

fO 

dO 

21f0 

: 00 

fc 

00 

ff 

00 

ff 

00 

3c 

e7 


116 
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C64 


GRUNDLAGEN 


21 f 8 

00 

3f 

00 

7f 

00 

7f 

00 

3f 

02 

2200 

00 

03 

00 

00 

00 

00 

00 

03 

88 

2208 

00 

cO 

00 

00 

00 

00 

00 

cO 

ea 

2210 

00 

3f 

00 

7f 

00 

3f 

00 

3f 

18 

2218 

00 

00 

00 

80 

00 

cO 

00 

cO 

bO 

2220 

00 

lf 

00 

lf 

00 

Of 

00 

Of 

2 a 

2228 

00 

eO 

00 

eO 

00 

fO 

00 

fO 

le 

2230 

00 

07 

00 

07 

00 

03 

00 

03 

b3 

2238 

00 

fB 

00 

f 8 

00 

fc 

00 

fc 

b5 

2240 

00 

01 

00 

01 

00 

00 

00 

00 

el 

2248 

00 

fe 

00 

fe 

00 

ff 

00 

ff 

a7 

2250 

00 

7f 

00 

7f 

00 

3f 

00 

Of 

18 

2258 

00 

60 

66 

6 c 

7f 

73 

73 

00 

11 

2260 

00 

fe 

00 

fe 

00 

fo 

00 

fO 

89 

2268 

00 

7f 

00 

7f 

00 

ff 

00 

ff 

18 

2270 

00 

80 

00 

80 

00 

00 

00 

00 

cl 

2278 

00 

lf 

00 

lf 

00 

3f 

00 

3f 

64 

2280 

00 

eO 

00 

eO 

00 

cO 

00 

cO 

94 

2288 

00 

f 8 

00 

f 8 

00 

fO 

00 

fO 

8 d 

2290 

00 

07 

00 

07 

00 

Of 

00 

Of 

8 b 

2298 

00 

fc 

00 

fe 

00 

fc 

00 

fc 

d8 

22 a0 

00 

00 

00 

01 

00 

03 

00 

03 

df 

22 a8 

00 

00 

63 

63 

73 

73 

7f 

00 

be 

22 b0 

00 

3f 

00 

3f 

00 

7f 

00 

7f 

33 

22 b8 

00 

00 

00 

00 

00 

00 

00 

Of 

d7 

22 c 0 

00 

fc 

00 

fc 

00 

fe 

00 

fe 

d4 

22 o8 

00 

00 

00 

00 

00 

00 

00 

fO 

aa 

22 d0 

00 

f 8 

00 

fO 

00 

fO 

00 

f 8 

e4 

22 d8 

00 

lf 

00 

Of 

00 

Of 

00 

lf 

01 

22 a0 

Oo 

12 

30 

7c 

30 

62 

fc 

00 

9b 

22 e8 

00 

e7 

00 

c3 

00 

81 

00 

00 

60 

22 f0 

00 

fe 

00 

fc 

00 

f 8 

00 

eO 

99 

22 f 8 

00 

3f 

00 

7f 

00 

ff 

00 

ff 

88 

2300 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

2308 

00 

7f 

00 

3f 

00 

lf 

00 

07 

b7 

2310 

00 

fc 

00 

fe 

00 

ff 

00 

ff 

6 e 

2318 

00 

03 

00 

07 

00 

07 

00 

03 

b9 

2320 

00 

cO 

00 

eO 

00 

eO 

00 

cO 

25 

2328 

00 

00 

00 

00 

00 

00 

00 

00 

29 

2330 

ff 

e7 

db 

fb 

f 7 

ef 

c3 

ff 

a7 

2338 

00 

lc 

00 

7f 

00 

7f 

00 

lc 

6 b 

2340 

00 

03 

00 

Of 

00 

3f 

00 

ff 

9e 

2348 

00 

ff 

00 

f c 

00 

fO 

00 

cO 

fl 

2350 

00 

ff 

00 

7c 

00 

00 

00 

00 

eO 

2358 

00 

00 

00 

00 

00 

00 

00 

7f 

57 

2360 

00 

ff 

00 

7f 

00 

7f 

00 

ff 

4c 

2368 

00 

ff 

00 

fe 

00 

fe 

00 

ff 

40 

2370 

00 

00 

ff 

ff 

ff 

00 

00 

00 

70 

2378 

00 

00 

00 

ff 

00 

00 

00 

00 

78 

2380 

ff 

ff 

ff 

eO 

eO 

e7 

e7 

e7 

57 

2388 

e7 

e7 

e7 

00 

00 

ff 

ff 

ff 

5d 

2390 

ff 

ff 

ff 

00 

00 

e7 

e7 

e7 

3d 

2398 

e7 

e7 

e7 

07 

07 

e7 

e7 

e7 

6 d 

23a0 

3f 

3f 

3f 

3f 

3f 

3f 

3f 

3f 

aO 

23a8 

lf 

lf 

lf 

lf 

lf 

lf 

lf 

lf 

a8 

23b0 

f 8 

f 8 

f 8 

f 8 

f 8 

f 8 

f 8 

f 8 

af 

23b8 

00 

00 

ff 

ff 

ff 

ff 

ff 

ff 

b8 

23o0 

00 

00 

00 

ff 

ff 

ff 

ff 

ff 

cO 

23o8 

ff 

ff 

ff 

ff 

ff 

00 

00 

00 

c7 

23d0 

fe 

fc 

f 9 

93 

87 

8 f 

9f 

ff 

bl 

23d8 

e7 

e7 

e7 

e3 

e3 

e3 

e3 

ff 

16 

23e0 

9c 

99 

93 

80 

Bc 

6 c 

8 c 

ff 

9d 

23e8 

cO 

cc 

cc 

80 

8 c 

8 c 

8 c 

ff 

bl 

23f 0 

9c 

9c 

9c 

cl 

6 c 

8 c 

8 c 

ff 

99 

23f 8 

ff 

ff 

ff 

00 

ff 

ff 

ff 

ff 

f 7 


Listing 35. MSE-Listing 
»CHAR5«. Der Zeichensatz für 
die 5mal größeren Buchstaben. 


100 BW ..••»•••mihi.. <S90> 

110 BBH . HINI-EDITOR WIR ORCBOI ■ <1T«> 

1?0 RW • • <10O> 

139 bin • Laufschrift • <1B»> 

HB UH • • «10B> 

130 REH .. <031» 

100 REH <212* 

170 REH <I3E» 

1(10 MH <J4J> 

100 ACRES8E*30B«4 <004> 

200 IHHUT-TMT-.A« <310» 

310 rRIHT-(CI.R>-AB <0«0> 

220 12 APMSSO39I60 THE* TRI KT TU VIKL TI 

rrtlll*<ADRESSE«ADRESSE-3'GOTO 370 «170» 

330 TOR I>0 TO LDKA9) <2*4. 

340 I0KE ADRESSE* X •PMK(10?4*X1 <223> 

343 IF m*<10J»*I).33 TUEN POEE ADRFSSI*I 

.27 '203* 

1*7 NIET <001> 

330 ADRESSE*ADRESSE*L.EM(Ai) <0O2> 

3S0 IMPUT'NOCH HEHR" 18* 1 IT D#»*J*THW 300 <12*> 

370 rOH 1-0 TO 3 1 PORE ADRESSE«I.0>NIX? <030> 

200 SYS 48133 <004> 

C It « 


Listing 36. BASIC- 
Programm »MINIEDIT«. Dieser 
Editor ändert auf Wunsch den 
Text der Laufschrift mit den 5fach 
vergrößerten Buchstaben. 


J090 
0091 
0092 
0093 
0094 
0093 
0096 
0097 
0090 
0099 
0100 
0101 
0102 
0103 
0104 
0103 
0100 
0107 
bioi 
0109 
0110 
0111 
0112 
0113 
0114 
0113 
0116 
0117 
0110 
0119 
0130 
0131 
0132 
0133 
OEM 
M» 
0126 
0127 
0120 
0129 
0130 
0131 
0132 
0133 
0134 
OEM 
0136 
0137 
0130 
0139 
0:40 
0141 
0142 


0147 
0140 
0149 , 
0130 
0131 
0132 . 
0133 i 
0134 j 
0133 . 
0136 i 
0137 . 
0130 , 
0139 
0160 
0161 , 
0163 
0163 
0164 
0163 . 


VBANX 

JOYPORTl 

J0YP0KT2 


SDDOO 

6SC01 

IDCOO 


UNIX» 

WOBEN 

nun» 

NWCHAR 

BCRNCLR 


I »WB IWD HIHIZRGRLWD 
i RAtJTERZZILt ODEN 
; RASTERETILE UNTEN 
i HARD3CROLL-ZZILEN 


NA ITTER - IRQ E1MBTELLZM 


CI AlRQ 
«omiiii 
«00000001 
CIAIBO 

60DEM 

mn 

corrrnou 

•07T 

COHTROU 

«10000001 

IBC0WSK 

*< i Horum 
1RQVCCT0RL 
•JIBOPIU3 
IPQVECTWW 


TINER-INTERRUPT AUS 


ZEIOESSCTZEV 


HINTTRORUHDl 

•BCHRIPT 

90306 

SCRHCLR 
1KIT 
TZXTIHIT 


, BILDSCHIRM LOE3CHEM 


NEUE IK7ERPUPTROUTINE 


RASTER 

•UNTEN 

isxunthh 


0169 i 

0170 

0171 

0172 

0173 i 

0174 

0173 

0176 ; 

0177 , 

0170 

0179 

0160 f 

0101 . 

0102 


0103 

0186 

0107 

0100 

0109 

0190 

0191 

0193 
0194 i 
0193 , 
0196 
0197 
0198 
0199 i 
0200 . 
0201 i 

0202 s 
0204 
0203 
0206 . 
0207 
0200 
0209 i 
0210 
0211 
0212 
0213 
0214 
0213 i 
0216 
0217 
0210 
0219 , 

0220 i 
0221 i 
0222 i 

0223 i 

0224 

0223 

0226 i 

0227 

0220 

0229 

0230 

0231 

0232 

023J 

0234 

0233 


IDA «DO 
ORA H30P7 
STA COWTROL2 


SB XB> ,. 


: &PTSCROLLEN 


«SOTT 

•»PT 

WEI7EPA 

•901 

PLAG1 

•907 

KSOFT 


i FLAO FUER IIARDSCHOU. 


LDA »UNTEN 
STA RASTER 
JMP t ROABSCHLUSS 

IWTERER TEIL 


FLAOl 

WEI7ER2 

HARD 

•900 

FLAOl 

•ODEN 

RASTER 

IRQW3RKAL 


1 f>LL3 IX A0 
i GESETZT. SPRUNG 
; ZUR HARD0CROLLROUT1M 


HARQflCROLL-ROUTINE 


HARD 

LOOP 



0240 
0241 
0242 
0243 
0244 
0243 
0246 
0247 
034B 
0249 
0230 
0231 . 
0232 . 
0233 : 
0234 , 
C233 , 
0236 . 
0237 , 
0230 i 
0239 i 

0261 i 

0363 
02«4 
0363 i 
0266 
0267 
0260 
0269 i 
0270 
0271 , 
0272 . 


EIGENTLICHES SCROLLEN 


LDA (ADRESSE).Y 


HIER WIRD DIE AKTUELL* 
ZEILE \M EIN ZEICHEN HACH 
LINKS GC9CKOLLT 


NACHSCHUB BYTE I 


HIER NIRD DIE AKTUELLE SPALTE DES 
IUCHSTABEH9 IH DIE SPALTE AM RECHTEN 
BILDSCHIRMRAND GEBRACHT. DIEB 
GESCHIEHT JEWEILS BEI EIN» 

BYTE 


LDA 

STA 


IPOINTERl.Y 

-D.Y 


i; 

POINTER 

WEITE» 

POINTER«! 


0273 |...... 

0274 ;• ZWISCHENSPEICHER FUER SPALTE DES • 

0273 i* BUCHSTABENS • 

0276 ....... 

0377 j 

0278 AHFAHS .VIDEO "ADCDEJ”' 

0279 i 

0280 .... 

0281 i« POINTER AUF AMrANOSADBEDSZ 
0282 i« DES SPEICHERS FUER DIE SPALTE • 

0283 ..... 

0264 i 
0203 i 

0206 INIT LDA •«( ANFANG-39) 

0207 JTA POINTER 

0*08 LOA •>< ANFANO-39) 

028® STA POINTER« 1 

0290 RT3 

0201 , 

0293 i 

0293 ..... 

0294 i« UNWANDCLM VON VIDEO CODE IN DAS 
0293 i« MUSTER EUER DIE GROSSEN BUCHSTABEN • 

0296 

0297 , 

0390 ■ 

0299 i 
0300 t 

0301 DECODE JSR PINZP031TI0N , BUCHSTABEN-SPALTE 

0302 i 

0303 LDA BUCHSTABE 

0304 TAX 

0309 i 

030® LDA KKHSTADENLOW.X , 

W07 CLC . ZU ADRESSE 

0300 ADC POSITION , ADDIEREN 

0309 STA ADRESSE 

0310 BCC WEITERI 

So «fron — 

0313 i 

0314 WEITER1 IDA «900 

0313 WEITEM CLC i UND Hl GM-BYTE 

”}• ADC BUCHSTABEMHIOH. X i 

0317 STA ADRESSE«! 

0310 ■ 

0319 i 

0330 i HIER WIRD DIE WMDTTANE SPALTE IN DEN 
0331 i HILrFSPEICHER UEBERTRAGEN. 

0322 i 

0333 LDY 

0334 LI LDA 

0323 STA ANFANG.V 

0336 DEY 

0327 BPL LI 

0330 i 

0329 . AD HIER WIRD SCHON DIE NAECHSTE SPALTE 
0330 , EINGESTELLT WAR DIES DIE LETZTE. WIND 
0331 , EINE NEUER DUCH3TASE GEHOLT 
0333 i 

0333 LDA orrSET 

0334 CLC 

“333 ADC *1 

033« CNP LACHSE, I 

“”7 BEO ZUZKDE , LETZTE SPALTET 

0339 i 

0340 inc arrssr . nein 

0341 RT3 

0342 j 

0343 t 

0344 i 

0343 ZUEHDE JSR TXXIWOLEM , JA.DANN 

0346 STA BUCHSTABE i HEUER BUCHOTABE 

0«0 LDA *00 i BEI ANFANG33PALTT 

0349 sta orrsrr 

0330 RTS 

0331 | 

0332 ;...... 

0333 :• FEINPOSITICNIERL9IG DES ZEICER3 • 

0353 ! 

0336 FIHEPOSITION LDA OFFSET : OFFSET • 

033J STA HELP , ADRESSE DER 

SS! a ‘ «0«=™» nun 

0360 CLC 

SS! SS "" 

0363 ADC HELP 

0364 STA POSITION 

0363 HT3 

0366 | 

0367 , 

0368 ..... 

0369 i* TEXT HOLE» • 

0370 ..... 

0371 i 

0372 . HIER WIR DE KEACH37E BUCHSTABE 
0373 , AUS DER TABELLE GEHOLT UND UEBEJI- 
0374 , PRUEFT. COER DER TEXT WIEDER 
0373 i VON VORNE BEGINN» SOLL 
0376 i 

0377 TETTTOLEH LDA SAVE1 

0378 STA POINTER 

0379 LDA 3AVE2 

0380 STA POINTER*! 

0381 i 

0382 INC POINTER i ZEIGER ERH3EHSN 

0383 LDA POINTER 

0384 STA 3AVE1 

0365 DHE WEITED4 

0386 i 

0307 WC POINTER«! 

0388 LDA POINTER*: 

0380 STA SAVE3 

0390 WEITER4 LOT »00 

0391 LDA (POINTER).Y , BUCHSTABE IN AXXU 

0392 ONE WEITERS i O-EHDE? 

0393 JSR TEXTINIT i JA. DANN VON VORNE* 

0393 i 

0396 WZITER3 LDY *0 , HEIN. ZUKUECX 

0397 LDA (POINTER).Y 

0308 i 

0399 RTS 

0400 i 

0401 .. 

0402 . • TEXT VON VCIWE • 

0403 ... 

0404 | 

0403 i 

0406 TEXTINIT LDA #<71XT 

0407 STA SAVE1 

0408 STA POINTER 

0409 LDA «»TEXT 

0410 ITA 8AVE3 

0411 STA POINTER»! 

0412 i 

0413 KT8 

0414 i 
0418 , 

0418 i 
0417 , 

0418 ... 

0419 i* TABELLEN • 

0420 .. 

0421 • 

0433 i..... 

0423 <• HILF3SPEICHER 

0434 i.... 

0433 : 

0426 i MtLT89PEICKER FUER3 DOTT3CBOLLINO 
0427 | 

0420 FLAOl .BYTE 000 , KAKDOCROLL JA-NEIN 

0429 rU02 ■ BYTE 903 , GESCHWIND! OKE IT 

0430 FLAG3 BYTE 900 , 41 ADDIEREN 

0431 FLA04 .BYTE 901 i AUS TEST HOLEST? 

0432 RICHTUNG .BYTE 901 i AM AKTNAO MACH LINKS 

0433 KSOFT .BYTE 903 , ZW10CKEK3PCICKER FUER 

0434 i 

0433 i SPEICHER FUERS HARDSCROLLE» UND DIE 
0436 , ERZEU3UNQ DER OROOSEN BUCHSTABEN 
0437 i 


Listing 37. Quelltext »5-F SCHRIFT«. 
So sieht der Quelltext für das Pro¬ 
gramm aus, das zur Erzeugung 
einer überdimensionalen Lauf¬ 
schrift führt. 
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GRUNDLAGEN 


C64 



0610 
0630 
0631 
0632 
0633 
0634 i 
0633 
0626 
0637 
06 2B 
0620 
0630 
0631 . 
0632 
0633 
0634 
0633 
063« 
0637 i 
063« 
0630 
0640 
0641 
0643 
0643 i 
0644 
0643 
0644 
0647 
064« 
0649 
0630 
0631 
0632 
0633 
0634 
0633 , 
063« 
0637 
063« 
063« 
0660 
0661 . 
0662 
0663 
066« 
0683 
066« 
0667 . 
066« 
0669 
0670 
0671 
0672 
0673 
0674 . 
0673 
0676 
0677 
067B 
0679 

0680 i 
0681 
0682 
0683 
0684 
0683 
0686 < 
0687 
0688 
0609 
0690 
0691 
0692 
0693 
0694 , 
0693 
0696 
0697 
0698 
0699 
0700 
0701 , 
0702 
0703 
07C4 
0705 
0706 
0707 
070« . 
0709 
0710 
0711 
0712 
0713 
0714 , 
0713 
0716 
0717 
0718 
0719 
0720 i 
0721 
0732 
0733 . 
0724 
0723 
0726 
0737 
072« 
0729 . 
0730 
0731 
0732 
0733 
0734 j 
0733 
0736 
0737 
0738 
0739 
0740 , 
0741 
0742 
0743 
0744 
0743 
0746 . 
0747 
0740 
0749 
0730 
0731 
0732 4 
0733 
0734 
0733 
0736 
0737 
073« i 
0739 . 
0760 , 
0701 . 
0702 i 
0763 , 
076« ! 
0763 
0766 
0767 
076« 
076» 
0770 
0771 
0772 
0773 
0774 
0773 
0776 
0777 
077« 
0779 
0700 
07« 1 
0703 
07«3 
0784 
0703 
0786 
0787 
0780 
0709 
0790 
0791 
0793 
0793 
0794 
0793 
0796 
0797 
0798 
0799 . 


PUNKT 

STRICH 


VIDEO • 6000T" 
VIDEO * rt- 
.VIDEO ‘ «“ 

VIDEO - 3“ 

VIDEO H " 

VIDEO • U686E" 
VIDEO - ./IS " 
VIDEO • 002 
VIDD3 " 3431 " 
VIDEO - V»C«e- 
V1DCO - 

VIDEO UWE 
VIDEO M /IS " 
VIDEO • «7/0- 
VI DEO - 1060V 
VIDEO * 

VIDEO »0601- 
VIDEO - 0C KO' 
VIDEO - OO 00" 
VIDEO ' BOOCH- 
VIDEO * 

VIDEO - UOOOE- 
VI DEO - 0 61 
VIDEO CM« 
VIDEO ' DOH 
VIDEO " 

VIDEO >0401 " 
VIDEO - OC BO' 
VIDEO - ©0 0- 
VIDEO ' D0009" 
• VIDEO • 

.VIDEO UMOE- 
VIDEO - 0 *K ‘ 
VIDEO ' «M0<< ' 
VIDEO * D0H*>- 
.VIDEO * 

VIDEO »•! 7- 
.vidco " e*e « 
VIDEO • 0 <*-0 
VIDCO * D MH' 
VIDEO • 

•VIDEO ' T 
VIDEO ' OS 
VI OSO «HOF. 
VIDEO 01 
VIDEO - S 
VIDEO - 


«I* 


VI DEO - I 
VIDEO " W 
.VIDEO * 00- 

.VIDEO - *000*1 
.VIDEO * 

.VIDEO * 8DFH * 

VIDEO - CEOIJ- 
•VIDEO " TRCMX.- 
,VIDEO - 02PH " 

.VIDEO * * 

•VIDEO - BDFH - 
VIDEO - CEOIJ" 

• VIDEO - WL- 
.VIDEO - YXJ- 
.VIDEO ' TBOtC- 
VI DEO ' 3QPH 
.VIDEO * 

.BYTE 32.99.38,32.36.99 
-BYTE 32.48.47.91.93.94 
-BYTE 32.32,48.0.93.32 
.BYTE 32.51.32.90.98.97 
•BYTE 32.100.27.32.23.100 
BYTE 32.32.32.32.32.32 

BYTE 32.99.28.32.33.32 
.BYTE 3-,«6.47.49.28.32 
•BYTE 32.32.48.D.0,0 


•BYTE 32.63,32,32.104.20 
•BYTE 32.0.32.104.103.0 
•BYTE 32.0.104,103,32,0 
•BYTE 32.23.105.32.32.19 
•BYTE 32.32.32.32.32.32 

-VIDEO " 

.VIDEO " ■ 

•VIDEO * 

•VIDEO - 
■VIDEO - 


• VIDEO ' 7 • 

.VIDEO - o " 

■VIDEO * « • 

.VIDEO ■ 8 “ 

■VIDEO * 

•BYTE 32.32.41.106.33.33 
•VIDEO - !• " 

.VIDEO WOME' 

•VIDEO " 

•BYTE 32.1.0.9.107.9 
VIDEO ' «>0 0" 

VIDEO " OSf'O 
VIDEO " 8006)1" 

VIDEO ' 

.BYTE 33.I.0.10D.0.9 
VIDEO " 0A0A6" 

VIDEO 0H9M« 

BYTE 33.3.0.109.0.8 
VIDEO * " 

■ VIDEO - AMOI 
VIDCO " 0(0*8 
VIDCO - 0-8K8 
VIDEO ’ Dl DOM" 

•VIDEO - 


0 0 


■VIDEO 
VIDEO ' 

VIDEO ' . . 
■VIDEO OS' 
VIDEO * 


LADWE DER BUCHSTABEN ALB TABELLE 


• BYTE 3 
BYTE B 
■BYTE 5 
BYTE B 
■BYTE S 

■ BYTE 8 
BYTE 5 
.BYTE 3 
BYTE 5 
BYTE 4 
BYTE 3 
BYTE 3 

.BYTE B 
BYTE 6 
BYTE 3 
.BYTE 5 
■BYTE 3 
BYTE 3 
■BYTE 3 

■ BYTE 3 

■ BYTE 6 
BYTE 5 

■ BYTE 3 
.BYTE 7 
BYTE 8 
BYTE 0 

■ BYTE 9 

■ BYTE 3 

■ BYTE 2 

• BYTE 5 
.BYTE 4 
-BYTE 3 

• BYTE 3 

■ BYTE 5 
.BYTE 3 


oooo ,•••••• 

oeoi »• 

0802 i« 

0003 ,•••••• 

0004 i 

oeos 

0«06 TEXT 
0007 
060« 

0609 

0010 

0811 

0«12 

0813 

0014 


•- »C700 

VIDEO "DIESttBUCHSTABEN" 

VIDEO "SlNDtORCSS 
VIDEO CUNDCKINTSCMOENES' 

.VIDEO -tORAriKHEO" 

VIDEO ■CHlTTO.CreUH- 
.VIDEO •CBEIOPIELtFUER" 

VIDEO "CD1ECBCHAU" 

.VIDEO -FENST3WEBUN0" 

BYTE 0.0.0.0.0.0,0 * EKDEKENNZEICHEN 


Listing 37. Überdimensionale Lauf¬ 
schrift (Schluß) 


Name 

3-1 

schrift 

c 


0801 0c4e 

0801 

lb 

08 

00 

00 

9e 

28 

32 

30 

75 

0809 

38 

30 

29 

20 

54 

48 

45 

20 

85 

0811 

46 

52 

49 

BO 

53 

20 

2 e 

2 e 

2 e 

0819 

2 e 

00 

00 

00 

54 

42 

43 

a2 

fl 

0821 

e9 

bd 

32 

08 

9d 

ff 

00 

ca 

e6 

0829 

dO 

f 7 

78 

86 

01 

ca 

9a 

4c 

4d 

0831 

00 

01 

aO 

00 

84 

fd 

84 

fe 

22 

0839 

a9 

4e 

a2 

Oc 

85 

ae 

86 

af 

7b 

0841 

a9 

lc 

a2 

09 

85 

ac 

86 

ad 

f 5 

0849 

20 

81 

01 

a9 

01 

a2 

08 

85 

fO 

0851 

ae 

86 

af 

bl 

fd 

c9 

9f 

dO 

b3 

0859 

10 

a9 

00 

48 

20 

a2 

01 

aa 

b7 

0861 

68 

20 

a0 

01 

ca 

dO 

fa 

fO 

25 

0869 

Od 

c9 

4f 

dO 

06 

20 

a2 

01 

37 

0871 

48 

dO 

e9 

20 

a8 

01 

20 

bl 

16 

0879 

01 

dO 

d8 

ae 

b8 

01 

ca 

30 

Od 

0881 

24 

bd 

b9 

01 

85 

fe 

85 

2 e 

d5 

0889 

ca 

bd 

b9 

01 

85 

fd 

85 

2 d 

79 

0891 

ca 

bd 

b9 

01 

65 

ad 

ca 

bd 

35 

0899 

b9 

01 

85 

ac 

8 e 

b8 

01 

20 

bd 

08al 

81 

01 

4c 

49 

01 

a9 

37 

85 

24 

08a9 

01 

29 

06 

c9 

06 

dO 

01 

58 

95 

08bl 

4c 

00 

cO 

a5 

fd 

dO 

02 

c6 

de 

08b9 

fe 

c6 

fd 

a5 

ae 

dO 

02 

c6 

55 

08cl 

af 

c6 

ae 

bl 

ae 

91 

fd 

a5 

70 

08c9 

ae 

c5 

ac 

dO 

e6 

a5 

af 

c5 

85 

08dl 

ad 

dO 

eO 

60 

20 

bl 

01 

bl 

21 

08d9 

fd 

60 

91 

ae 

e6 

ae 

dO 

02 

6 c 

08el 

e6 

af 

60 

e6 

fd 

dO 

02 

e6 

dO 

08e9 

fe 

60 

04 

01 

08 

25 

c7 

03 

07 

08f 1 

03 

03 

03 

03 

03 

03 

03 

03 

fl 

08f 9 

03 

03 

03 

03 

03 

03 

03 

03 

f 9 

0901 

03 

03 

03 

03 

03 

03 

03 

03 

01 

0909 

03 

03 

03 

03 

03 

03 

03 

03 

09 

0911 

03 

03 

00 

a9 

00 

20 

71 

a8 

e3 

0919 

4c 

ae 

a7 

78 

ad 

Od 

de 

29 

be 

0921 

7f 

09 

01 

8 d 

Od 

de 

a9 

da 

2 b 

0929 

8 d 

12 

dO 

ad 

11 

dO 

29 

7f 

©4 

0931 

8 d 

11 

dO 

a9 

61 

8 d 

la 

dO 

3f 

0939 

a9 

46 

8 d 

14 

03 

a9 

cO 

8 d 

87 

0941 

15 

03 

a9 

00 

8 d 

20 

dO 

8 d 

7a 

0949 

21 

dO 

a9 

01 

8 d 

86 

02 

a9 

c5 

0951 

lb 

8 d 

72 

cl 

20 

44 

e5 

20 

04 

0959 

de 

cO 

20 

5d 

cl 

58 

4c 

80 

5c 

0961 

a4 

ad 

19 

dO 

8 d 

19 

dO 

ad 

7c 

0969 

12 

dO 

c9 

ff 

bO 

34 

a9 

dO 

4b 

0971 

Od 

71 

cl 

8 d 

16 

dO 

a9 

18 

18 

0979 

8 d 

18 

dO 

aO 

00 

8 c 

6 c 

cl 

f 4 

0981 

ac 

6 d 

cl 

ce 

71 

cl 

ad 

71 

ed 

0989 

cl 

c9 

ff 

dO 

Oa 

a2 

01 

8 e 

20 

0991 

6 o 

cl 

a2 

07 

8 e 

71 

cl 

88 

f 4 

0999 

dO 

e9 

a9 

ff 

8 d 

12 

dO 

4c 

Od 

09al 

bc 

fe 

a9 

cO 

8 d 

16 

dO 

a9 

7f 

09a9 

15 

8 d 

18 

dO 

ad 

6 c 

cl 

fO 

cc 

09bl 

08 

20 

a6 

cO 

a9 

00 

8 d 

6 c 

35 

09b9 

cl 

a9 

da 
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b9 

23c0 : 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

bf 

23c8 : 

fe 

fe 

fe 

ff 

ff 

ff 

ff 

ff 

05 


23d0 
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: ff 

ff 

7f 

7f 

3f 

3f 

lf 

lf 

27 

24b8 

: f 8 

f 8 

fc 

fc 

fd 

ff 

ff 

ff 

eb 

24o0 

: lf 

3e 

7c 

f 8 

fO 

eO 

cO 

80 

57 

24c8 

: ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

c7 

24d0 

: ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

cf 

24d8 

: 07 

07 

07 

07 

07 

07 

07 

07 

d8 

24eO 

: ff 

ff 

cO 

80 

00 

00 

00 

00 

lf 

24e8 

: ff 

ff 

01 

03 

07 

Of 

lf 

3f 

6 c 

24fO 

: ff 

ff 

ff 

ff 

ff 

fe 

fc 

f 8 

cc 

24f 8 

: 00 

00 

00 

00 

00 

00 

00 

00 

19 

2500 

: ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

11 

2508 

: ff 

fe 

fe 

fe 

fe 

fe 

fe 

fe 

08 

2510 ; 

: c7 

e7 

e7 

77 

77 

3f 

3f 

lf 

60 

2518 : 

: ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

17 

2520 : 

: fe 

fe 

fe 

fe 

fe 

fe 

f e 

fe 

lf 

2528 : 

: 03 

03 

03 

03 

03 

03 

03 

03 

28 

2530 : 

i ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

2 f 

2538 : 

: ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

37 

2540 ! 

87 

ff 

ff 

fe 

fe 

fc 

fO 

00 

42 

2548 : 

: ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

47 

2550 : 

fe 

fe 

fe 

fe 

fe 

fe 

fe 

fe 

4f 

2558 : 

: 03 

03 

03 

03 

03 

03 

3b 

3f 

b2 

2560 : 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

5f 

2568 : 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

67 

2570 : 

87 

ff 

ff 

fe 

fe 

fc 

10 

78 

63 

2578 : 

3f 

00 

00 

00 

ff 

ff 

ff 

ff 

b7 

2580 ; 

ff 

00 

00 

00 

ff 

ff 

ff 

ff 

71 

2588 : 

fe 

07 

03 

07 

ff 

ff 

ff 

ff 

ao 

2590 : 

9f 

lf 

lf 

lf 

lf 

lf 

lf 

lf 

10 

2598 : 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

97 

25a0 : 

f 9 

f 8 

f 8 

f 8 

f 8 

f 8 

f 8 

18 

aO 

25a8 : 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

11 

a7 

25b0 : 

fe 

fe 

fe 

fe 

fe 

fe 

fe 

fe 

af 

26b8 : 

07 

07 

07 

07 

07 

07 

07 

07 

b8 

25cO : 

3f 

3f 

3f . 

>3f 

lf 

lf 

lf 

lf 

fc 

25c8 : 

fc 

fc 

fc 

fc 

fe 

f e 

f e 

fe 

03 

25d0 : 

7c 

7c 

7c 

7c 

*8 

f 8 

f 8 

f 8 

66 

25d8 : 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

d7 

25e0 : 

fe 

fe 

fe 

f e 

fe 

fe 

ff 

ff 

e5 

25e6 : 

07 

07 

07 

07 

67 

f 7 

ff 

9f 

8 b 

25f0 : 

Of 

Of 

07 

07 

03 

03 

07 

Of 

ac 

25f8 : 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

17 

2600 : 

80 

80 

cO 

cO 

eO 

eO 

fO 

fO 

c3 

2608 : 

ff 

7f 

7f 

3f 

Of 

03 

03 

03 

aa 

2610 : 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

Of 

2618 : 

8 f 

fe 

fe 

fc 

fO 

eO 

eO 

eO 

el 

2620 : 

00 

Of 

Of 

03 

07 

Of 

lf 

3f 

bO 

2628 : 

7f 

ff 

ff 

ff 

ff 

fe 

fc 

ff 

92 

2630 : 

fO 

fc 

fo 

80 

00 

00 

00 

ff 

ed 

2638 : 

00 

ÜO 

00 

00 

00 

00 

00 

00 

39 

2640 : 

ff 

ff 

ff 

ff 

ff 

00 

00 

00 

3f 

2648 : 

fe 

fe 

f e 

fe 

fe 

00 

00 

00 

55 

2650 : 

lf 

Of 

Of 

07 

07 

00 

00 

00 

Oc 

2658 : 

ff 

7f 

7f 

3f 

Of 

00 

00 

00 

dO 

2660 : 

fe 

ff 

ff 

ff 

ff 

00 

CO 

00 

5e 

2668 : 

03 

06 

fe 

fc 

fO 

00 

00 

00 

dd 

2670 : 

ff 

ff 

ff 

ff 

ff 

00 

00 

00 

6 f 

2678 : 

ff 

ff 

ff 

ff 

ff 

00 

00 

00 

77 

2680 : 

00 

00 

00 

00 

00 

00 

00 

00 

81 

2688 : 

ff 

7 f 

7f 

3f 

Of 

00 

00 

00 

00 

2690 1 

fe 

ff 

ff 

ff 

ff 

00 

00 

00 

8 e 

2698 : 

3f 

le 

fe 

ff 

f 3 

00 

00 

00 

e5 

26 a 0 : 

ff 

ff 

ff 

ff 

ff 

00 

00 

00 

9f 

26a8 : 

ff 

ff 

ff 

ff 

ff 

00 

00 

00 

a7 

26b0 : 

7c 

7e 

3f 

3f 

3f 

00 

00 

00 

17 

Listing 38b. MSE-Listing 





»CHAR3«. Zeichensatz zur 3mal 


größeren Schrift aus Listing 38 
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GRUNDLAGEN 


C64 


26b8 : 

ff 

ff 

ff 

ff 

ff 

00 

00 

00 

b7 

26c0 : 

ff 

ff 

ff 

ff 

ff 

00 

00 

00 

bf 

26c8 : 

: ff 

fe 

fe 

f c 

fO 

00 

00 

00 

b5 

26d0 : 

lf 

lf 

lf 

lf 

lf 

00 

00 

00 

ld 

26d8 : 

: ff 

ff 

ff 

ff 

ff 

00 

00 

00 

d7 

26e0 : 

f 8 

f 8 

f 8 

f 8 

f 8 

00 

00 

00 

41 

26e8 : 

: ff 

7f 

7f 

3f 

Of 

00 

00 

00 

60 

26f 0 : 

ff 

ff 

ff 

ff 

ff 

00 

00 

00 

ef 

26f 8 : 

! Of 

fe 

fe 

fc 

fO 

00 

00 

00 

f 5 

2700 : 

Of 

Of 

Of 

07 

03 

00 

00 

00 

6c 

2708 : 

: ff 

ff 

ff 

ff 

ff 

00 

00 

00 

07 

2710 : 

fO 

fO 

fO 

eO 

cO 

00 

00 

00 

dd 

2718 : 

: ff 

ff 

ff 

ff 

ff 

00 

00 

00 

17 

2720 : 

: ff 

ff 

ff 

fe 

fe 

00 

00 

00 

ee 

2728 : 

: 9f 

Of 

Of 

07 

07 

00 

00 

00 

64 

2730 : 

: lf 

3e 

7c 

f 8 

fO 

00 

00 

00 

bc 

2738 i 

: ff 

ff 

ff 

7f 

7f 

00 

00 

00 

lf 

2740 : 

: f 8 

f 8 

fc 

fc 

fe 

00 

00 

00 

83 

2748 : 

: 03 

03 

03 

03 

03 

00 

00 

00 

le 

2750 : 

: ff 

ff 

ff 

ff 

ff 

00 

00 

00 

4f 

2758 : 

: eO 

eO 

eO 

eO 

eO 

00 

00 

00 

Ob 

2760 : 

: 7f 

ff 

ff 

ff 

ff 

00 

00 

00 

df 

2768 

: ff 

ff 

ff 

ff 

ff 

00 

00 

00 

67 

2770 : 

: ff 

ff 

ff 

ff 

ff 

00 

00 

00 

6f 

2778 

: 00 

00 

00 

00 

00 

00 

00 

00 

79 


Listlng 38b. (Schluß) 



0647 

0648 

0649 j 

0650 >W 

.BYTE 146.106.226 
.BYTE 32.32,32 

.BYTE 147.107.227 

0651 

0652 

0653 

0694 1 

0635 >X 

.BYTE 140.100.220 
.BYTE 149,169.229 

BYTE 32.32.32 

BYTE 150.190.230 

0656 

0657 

0630 

0639 , 

•BYTE 131.191.231 
.BYTE 132,192.232 
.BYTE 32.33,32 

0660 »Y 

0661 

0662 

0663 

.BYTE 133,193,333 

BYTE 154.194.234 
.BYTE 133.193.239 

BYTE 32.32.32 

0664 . 

0665 »Z 

0666 

0667 

.BYTE 136.196.236 
.BYTE 137,197.237 
.BYTE 130.100.230 

0869 1 

0670 »OPACZ 
0671 

0672 

BYTE 32,32.32 

BYTE 23.32.32 
■BYTE 32.32.22 

0673 

0674 , 

0673 »RUTE 
0676 

• BYTE 32.32.32 

.BYTE 32.32.23 

BYTE 09.27,27 

0677 

0670 

0679 , 

0600 >KO*OU 

•BYTE 32.33.32 
.irrt 33.32,32 

BYTE 32.32.32 

0601 

0602 

0603 

0604 » 

BYTE 32.32.39 
.BYTE 32.32.33 
.BYTE 32.32.32 

0606 

0607 

0800 

0809 t 

.BYTE >2.32,27 

BYTE 32.32.32 
•BYTE 32.32.33 

0891 i* 

0692 i» 

AB HIER STEHT DER TEXT DER 

LAUFSCHRIFT 

0694 | 

0693 

0896 TEXT 
0697 

0690 

*- IC700 

.VIDEO "lABCDErüMIJKKOOP- 
VIDEO "QRSIWWXZIM*- 

Listing 39. IRQ-Teil des 

Quelltextes »3-F SCHRIFT«. 

Buchstabenmuster für die 

3fach vergrößerte Laufschrift 


0103 OBEN - 21B 

0106 UXTHN - 295 

0107 HZCBEX - 21 

0100 HZUKTEN - 29 

0321 i 

0322 t HIER WIRD DIE »OeNTANZ SPÄLTE IN DEN 
0323 j lULFFSPElCXTR UEBUTTKACDI. 


0329 

□326 

0327 

0326 

0329 


i RASTERZEILE OBEN 
i RASTERZEILE UWTZN 
i HARDSCflOLL-ZEILEN 


sn Anfang. r 


SK L> 

AB HIER WIRD SCHON DIE NAECHSTE SPALTE 
EINGESTELLT. WAR DIES DIE LETZTE. WIRD 
SINE NEUER BUCHSTABE GEHOLT 


OFFSET 

•*03 

ZUENDE 


INC OFFSET 


0333 
0334 
0339 
0336 
0337 
0336 
0339 
0340 
0341 
0342 . 

0343 t 
0391 i 

0332 ...... 

0333 ,• PEIMPOSIT!OMIEKUM3 DEO ZEIGERS 

0336 ‘flNEPOSITION LDA 
0397 STA 

0330 ABL 

0399 CLC 

0360 ADC 

0361 STA 

0362 ETS 

0363 i 


i LETZTE SPALTET 
: NEIN 


i OFFSET • 3 
. ADRESSE DER 
i IOÄNTANZN SPALTE 


Listlng 40. IRQ-Teil des Quelltextes 
»3-F SCHRIFT«. Unterschiede 
der 3fach vergrößerten Schrift zur 
5fach vergrößerten Version 


Name : rahmen-lauf.o oOOO c0d5 


cOOO : 

78 

ad 

Od 

de 

29 

7f 

09 

01 

e2 

c008 : 

; 8d 

Od 

de 

a9 

f 7 

8d 

12 

dO 

5e 

cOlO : 

: ad 

11 

dO 

29 

7f 

8d 

11 

dO 

e9 

c018 : 

: a9 

81 

8d 

la 

dO 

a9 

78 

8d 

80 

C020 : 

: 14 

03 

a9 

cO 

8d 

15 

03 

20 

06 

C028 : 

: 3b 

cO 

a9 

00 

8d 

20 

dO 

a9 

9e 

c030 : 

: 06 

8d 

21 

dO 

a9 

00 

8d 

ff 

30 

c038 

: 3f 

58 

60 

a9 

08 

a2 

Of 

9d 

fe 

C040 : 

; 00 

dO 

ca 

ca 

10 

f 9 

a9 

18 

5c 

C048 : 

: a2 

00 

9d 

00 

dO 

18 

69 

30 

26 

o050 i 

: e8 

e8 

eO 

10 

dO 

f 4 

a9 

eO 

04 

c058 : 

: 8d 

10 

dO 

aO 

ff 

a2 

07 

98 

98 

C060 : 

: 9d 

f 8 

07 

a9 

00 

9d 

27 

dO 

9c 

c068 : 

: 88 

ca 

10 

f 3 

a9 

ff 

8d 

ld 

e3 

c070 : 

: dO 

8d 

17 

dO 

8d 

15 

dO 

60 

6c 

c078 : 

: ad 

19 

dO 

8d 

19 

dO 

ad 

12 

8b 

c080 : 

: dO 

c9 

f 7 

90 

Od 

a9 

31 

8d 

43 

C088 : 

: 12 

dO 

a9 

13 

8d 

11 

dO 

4c 

Oc 

c090 i 

: 81 

ea 

a9 

f 7 

8d 

12 

dO 

a9 

fO 

c098 : 

: lb 

8d 

11 

dO 

a2 

Oe 

aO 

07 

03 


cOaO : 

de 

00 

dO 

de 

00 

dO 

de 

00 

90 

c0a8 : 

: dO 

bd 

00 

dO 

c9 

fd 

bO 

08 

dO 

cObO : 

: ca 

ca 

88 

10 

eb 

4c 

31 

ea 

bf 

c0b8 : 

' ad 

10 

dO 

59 

cd 

cO 

Bd 

10 

06 

cOcO : 

; dO 

39 

cd 

cO 

fO 

ea 

a9 

7f 

c4 

c0c8 ■ 

: 9d 

00 

dO 

dO 

e3 

01 

02 

04 

Oa 

cOdO : 

; 08 

10 

20 

40 

80 

01 

bO 

01 

c5 


Listing 41. MSE-Listing 
»Rahmenlauf.O«. Laufschrift im 
Rand nach SYS 49152 


«DITO« run LAUF- 
PCHSirr IN BAND 


l BEN 
I RIM 

3 BEN 

4 MH 
3 HEN 

6 BIN • • 

7 UH • • 

B I1SN .... 

i BEN 

tO POKE 38 > 02 1 CLB 'ZA»5334A 
20 PIINT <CL»3BirrB TEXT EtNQBBEN* 

23 AB.‘AUF VIEDERSEHENI' DB.At 
30 INPOT-l.'iAB INPUT-2.-IB« 

33 IP LENIASI>2* OB LEN»B»I>24 TBEN 2B 
40 PBIN7 • (CLB) A« i PRINT OICHE. 2D06N> DS 
3B FOB 1.13072 TO 16302>PO« 1.9 NEXT 
«0 POKE 36334.0 POKE 1.31 
70 rOR A*0 TO 7'POR 1*0 TO 2 
0« ADoZA*B»PEEKUB24*A»3»D) 

00 AZ>ZA*fl.PEEK(IIO**AO»9) 

190 POB 1.0 TO 7■POKE 15911 *A*64»fl«I»3, PH 
EIADM) 

KO POKE 13872.A.B4*B*IO.PEKXIAJ*I>-NEXT 
NEXTiNEXT 

130 POKE 1,53 POXZ 38334.1 

140 PORE 33200.0 POKE 18303.235'STB 4IIS2 

• 84*«r 


<U0> 
<051> 
<215> 
<0S5> 
<009> 
<035> 
<038> 
<II7> 
<071 > 
<I30> 
<14l> 
<038> 
« 030 » 
OB6> 
<011> 
«107> 
<13»> 
<B75> 
<223> 
<230> 

<I73> 

«U3> 

<0OR> 

<122» 


Listing 42. BASIC-Programm 
»LAUFEDIT«. Editor für die 
Laufschrift im Rand 


0096 , 


0097 

0096 

0099 

0100 

0101 

0102 

0103 

0104 

0103 

0106 

0107 

0106 

0109 

0110 

0111 

0112 

0113 


019! 


FARBE1 

FARBE2 

OBEN 

UNTEN 

LASTBLOCK 

SPOINTER 

VERSATZ 


KD* IKlTfiRUPTROUTINE 


0197 . 
0190 
0199 
0200 | 
0201 
0202 
0203 
0204 i 
0209 
0206 
0207 i 
0200 
0209 

0210 i 
0211 
0212 i 

0213 
0214 
0219 i 
0216 
0217 
0310 i 
0219 i 
0220 . 
0221 
0322 
0223 
0224 
0229 
0336 
0227 
0320 
0329 , 
0230 
0231 
0222 
0233 
0234 | 
0339 i 
0336 
0337 i 
0330 i 
0339 , 
0340 i 
0241 
0242 
0243 
0244 
0243 
0348 
0347 i 
0249 
0249 
0230 
0291 i 
0232 ; 
0233 


RASTER 
•UNTEN 
1 STOBEN 


SPRITES BEWEGEN 


LOB MOE 
LDT »107 
DEC SPRITEOX,X 

DEC SPRITEOX.B 
DEC SPRITEOX.B 

LDA SPRITEOX.B 
CTO* MFD 
DOS OHOKDSER 


<P inCNOWAL 
r Grocrat» 233 


SX233 

ZPOT.Y 

9X333 

ZPOT.Y 

LOOPS 

997T 

SPRITEOX.X 
LOOPS 


•BYTE *01.902.904.BOB.910.920.940. 


Listing 43. Quelltext 
»RAHMENLAUF«. Quelltext der 
Laufschrift im Rand 
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C64 


GRUNDLAGEN 


Rollenspiele mit dem C 64 


Kaum eine Spielegattung hat in den letzten Jah¬ 
ren einen größeren Boom zu verzeichnen als die 
Rollenspiele. Wir zeigen Ihnen, was das Beson¬ 
dere an diesen Spielen ist und welche interessan¬ 
ten Versionen es für den C64 gibt. 

W enn man unter Computerfreaks auf Rollenspiele zu 
sprechen kommt, gibt es zwei klare Fronten. Die 
einen bejubeln ihre Lieblinge unter den Rollenspie¬ 
len und sitzen stunden-, ja sogar tagelang davor. Die ande¬ 
ren verabscheuen das ewige Herumgelaufe auf Landkar¬ 
ten oder in Labyrinthen und sehen eigentlich gar keinen 
Sinn in solchen Spielen. Da die Fangemeinde der Rollen¬ 
spiele auch auf dem C 64 in der letzten Zeit ständig gewach¬ 
sen ist, wollen wir für all diejenigen, die noch keinen Kon¬ 
takt mit Rollenspielen gehabt haben, einmal das Faszinie¬ 
rende an dieser Spielegattung heraussteilen. Vielleicht las¬ 
sen Sie sich von dem Rollenspielvirus anstecken. 

Die Idee für Rollenspiele kommt aus Amerika und ist 
ungefährzehn Jahre alt. Ursprünglich wurden Rollenspiele 
ohne Computer, ja sogar ohne Spielbrett oder Ähnliches, 
gespielt. Wie kann das gehen, und was soll dabei heraus¬ 
kommen, werden Sie sich vielleicht jetzt fragen. Man 
kommt tatsächlich bei derartigen Spielen mit ein paar Wür¬ 
feln und einer ziemlich umfangreichen Spielbeschreibung 
aus. Jeder Mitspieler übernimmt eine bestimmte Rolle mit 
verschiedenen Charaktereigenschaften, an die er sich 
während des gesamten Spiels halten muß. Ähnlich einem 
Schauspieler agiert er dann in einem Szenario, welches 
nur durch Regeln und Beschreibungen ausgestaltet ist. 
Andere Mitspieler übernehmen weitere Rollen, und so 
begibt man sich in ein Abenteuer in einem Land, das nur in 
der Phantasie der Spieler existiert. Das Spiel wird über¬ 
wacht von einem erfahreneren Spieler, der zusätzlich alle 
Gegner, die während des Spielverlaufs auftauchen, steu¬ 
ert. Der Urvater aller Rollenspiele war das Fantasyaben- 



Bild 1. Damit fing auf dem C64 alles an: »Ultima II« 


teuer »Dungeons and Dragons«. Inzwischen gibt es unzäh¬ 
lige andere solcher Spielsysteme. Das Spielen von Rollen¬ 
spielen hat in seiner ursprünglichsten Form als Gesell¬ 
schaftsspiel allerdings einige gravierende Nachteile. 
Zuerst braucht man immer eine Anzahl geeigneter Mitspie¬ 
ler, und jeder weiß, wie schwierig es ist, eine Gruppe von 
Leuten terminlich unter einen Hut zu bekommen. Aber 




auch das recht umfangreiche Regelwerk bedeutet eine 
nicht unwesentliche Hürde zum Spielspaß. Erstens muß 
jedermann sich darin auskennen und zweitens braucht 
man immer noch einen sogenannten »Dungeon Master« 
als Spielleiter, der sich mit allem, was das Spiel betrifft, aus¬ 
kennt und die gesamten Aktionen überwacht. Dazu gehö¬ 
ren nicht nur Regelübertretungen, sondern auch das kom¬ 
plette Punktesystem. Daher sind schon ziemlich früh Über¬ 
legungen und Versuche angestellt worden, Rollenspiele 
auf verschiedenen Computern umzusetzen. Der Computer 
kann dabei im wesentlichen die umständlichen Punktebe- 



Bild 2. »Mythos» ist eines der wenigen deutschen 
Rollenspiele 


rechnungen in Sekundenschnelle ausführen. Er hat das 
Regelwerk komplett im Speicher und überwacht das Spiel 
daher gewissenhaft und unanfechtbar. Außerdem kann er 
zusätzlich noch eine Grafik auf dem Bildschirm darstellen 
und dem Spieler damit die Übersicht erleichtern. Letztend¬ 
lich ist er natürlich für den potentiellen Spieler ständig spiel¬ 
bereit und läßt keine Langeweile aufkommen. Klassiker des 
Rollenspiel-Genres wie etwa »Wizardry«, welches zuerst 
auf MS-DOS-Computern lief, oder »Hack«, eine sehr 
beliebte Public Domain-Version, entstanden aus diesen 
Überlegungen heraus. Im folgenden wollen wir untersu¬ 
chen, was die Unterschiede zwischen den einzelnen Syste¬ 
men sind und worauf man beim Kauf solcher Spiele achten 
sollte. 

Die erfolgreichste Reihe unter den Fantasy- 
Rollenspielen bilden die Ultima-Fortsetzungen. Für den 
C64 sind dabei Ultima II bis IV erhältlich. Bei Ultima II geht 
es im wesentlichen darum, ein Land von der Knechtschaft 
eines bösen Magiers zu befreien (Bild 1). Wie bei den mei¬ 
sten Rollenspielen wird dabei die Spielfigur über verschie¬ 
dene Tasten auf der Tastatur des Computers gesteuert. 
Man läuft mit dieser Spielfigur über eine Landschaft, deren 
Felder wie auf einer Landkarte nebeneinander angeordnet 
sind. Die verschiedenen Landschaftsformationen sind als 
unterschiedliche Symbole, wie Wellen in mehreren Farben 
für Wasser, Zacken für Berge und Striche für Flachland, 
markiert. Auf dieser Karte befindet sich ab und zu auch 
etwas Besonderes, zum Beispiel Städte, Schiffe oder 
Gegenstände, die sich mitnehmen lassen. Auch die Ein¬ 
gänge zu den schwierigen Höhlenlabyrinthen (Dungeons) 
findet man an versteckten Plätzen. 
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Bild 3. »Phantasie I« bietet einer Gruppe von beliebigen 
Charakteren knifflige Abenteuer 

Eines der wenigen deutschen Rollenspiele, »Mythos«, 
hat eine ähnliche Aufgabe und Ausgestaltung wie die 
ersten Ultima-Spiele, wenn es auch nicht ganz so komplex 
ist (Bild 2). Es gibt zwar nicht besonders viele deutsche Rol¬ 
lenspiele auf dem Markt, allerdings muß man hier anmer¬ 
ken, daß bei diesen Spielen bei weitem nicht so umfangrei¬ 
che Fremdsprachenkenntnisse erforderlich sind wie etwa 
bei Textadventures. 

Um den Spielfluß etwas realer zu gestalten und Span¬ 
nung zu erzeugen, trifft man beim Herumwandern auf mehr 
oder weniger unliebsame Bewohner des Landes. Diese 
können manchmal eine Hilfe sein, Tips geben oder wert¬ 
volle Gegenstände bei sich haben. Meist handelt es sich 
dabei jedoch um Monster, die angreifen und bezwungen 
werden müssen. Nur so kommt man an die extrem wichti-, 
gen Erfahrungspunkte heran. Die Spielfigur oder auch eine 
ganze Gruppe von einzelnen Charakteren, die lebend 
durch das Abenteuer gebracht werden sollen, sind für den 
Computer mit Zahlenwerten versehen. Diese Zahlenwerte 
geben alle wichtigen Charaktereigenschaften an und die¬ 
nen als Grundlage für die einzelnen Berechnungen. Es 
sind zum Beispiel Stärke, Geschicklichkeit und Intelligenz 
einer jeden Figur zu Beginn des Spieles festgelegt worden. 
Falls man auf Monster trifft, Zaubersprüche benutzen 
möchte oder einfach nur herumläuft, so wird anhand dieser 
Werte und einer entsprechenden Zufallsfunktion der Erfolg 
aller Handlungen vom Computer überwacht. Eines der 
wesentlichen Ziele zu Beginn eines Rollenspiels ist es 
daher, den Charakter, den man steuert, stärker und reicher 
zu machen. Nur so kann man die schwierigen Aufgaben 
und Gefahren, die noch im Verlauf des Spiels auf einen war¬ 
ten, bewältigen. Eine bestimmte Menge dieser Punkte führt 



dazu, daß der Charakter eine Stufe, auch Level genannt, 
aufsteigt. Dieser höhere Status beinhaltet auch eine 
höhere Punktezahl in den Charaktereigenschaften wie 
zum Beispiel Stärke oder dergleichen. Außerdem ist Kämp¬ 
fen oftmals die einzige Möglichkeit, die Geldreserven sei¬ 
nes Charkters aufzustocken. Nur wer reich an Geld ist, 
kann sich die in den Städten zu meist sehr hohen Preisen 
erhältlichen Ausrüstungsgegenstände leisten. Die Aus¬ 
rüstung, die von der Spielfigur getragen wird, ist nach dem¬ 
selben Prinzip charakterisiert wie der Spieler mit seinen 
Fähigkeiten. Am Anfang des Spiels hat man relativ einfache 
Waffen und Kleidung, die zum Beispiel mit dem Zahlenwert 
10 bewertet sind. Nach und nach findet und kauft man bes¬ 
sere Waffen, die im Kampf einen Schaden von mehr als 10 
Punkten beim Feind verursachen. Wie im richtigen Leben 
braucht der Spieler während seiner gefahrvollen Reise von 
Zeit zu Zeit Nahrung. Der Nahrungsvorrat wird meist an¬ 
gezeigt und gibt darüber Auskunft, wie weit man noch in 
unbekannte Gebiete vorstoßen kann, ohne zu verhungern. 

Ein sehr wichtiges Kapitel bei Rollenspielen ist das Zau¬ 
bersystem für besondere Charaktere wie etwa Magier, Hei¬ 
ler und ähnliche. Je komplexer und feinfühliger dies vom 
Erfinder des Spiels ausgestaltet ist, um so mehr Spaß 
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Bild 4. Eine ganze Welt gilt es bei »Ultima IV« zu entdecken 


Tje Cu i I d 
Chorocter Kone HC Hits Cond SpPt CI 

h -? m El g hs 

33 THE UH IT I IIC ptfj O Po 

H3 TROKROERO 3 1 CS mf-iii O Bo 

5) SRRUI1HH C SS ■2/1-1 Sl Co 

£3 HMTIRIRD 9 ST ICu 53 Ho 


Bild 5. Ein Senkrechtstarter unter den Rollenspielen: 
»The Bard’s Tale« 


macht es später beim Spielen. Interessant wurde dies erst, 
als man auch bei Computer-Rollenspielen mehrere Cha¬ 
rakterklassen und verschiedene Spielfiguren einführte. 
Nur so kann man Kämpfer, Diebe und Zauberer in eine 
Gruppe aufnehmen, diese gemeinsam durch das Land füh¬ 
ren und im Bedarfsfall auf die unterschiedlichen Fähigkei¬ 
ten eingehen. Ein Kämpfer wird der Gruppe dazu meist vor¬ 
angestellt, um Feinde abzufangen, ein Dieb muß Schatzki¬ 
sten öffnen und ein Zauberer kann den Weg an Stellen bah¬ 
nen, wo wirklich nur noch Magie hilft. Das Spiel »Phantasie 
I« (Bild 3) erlaubt es, in umfangreicher Weise Charaktere zu 
entwerfen und diese in eine »Party« aufzunehmen. Es war 
eines der ersten Spiele, bei denen man so verfahren 
konnte. Inzwischen gehört dieses System in vielfachen 
Variationen zu jedem guten Rollenspiel, das neu auf den 
Markt kommt. Die einzigen Charaktere, die magische Sprü¬ 
che nutzen können, sind Zauberer und artverwandte Figu¬ 
ren. Meist steht eine Vielzahl von Zaubersprüchen zur Ver¬ 
fügung, die jedoch erst nach und nach erlernt werden müs¬ 
sen. Dazu braucht der wißbegierige Zauberlehrling im 
wesentlichen Erfahrungspunkte und die damit verbunde¬ 
nen höheren Spielerstufen. Die Wirkung der verschiede¬ 
nen Sprüche kann recht unterschiedlich sein. Einige heilen 
zum Beispiel den Magier oder seine Mitstreiter von Wun¬ 
den. Andere können vom Zauberkundigen im Kampf gegen 


122 


SONDERHEFT 17 

























C64 


ACTION-SPIELE 


Monster benutzt werden. Ohne einen Magier ist eine 
Gruppe von Abenteurern in vielen Situationen ziemlich 
hilflos, denn oftmals braucht es nur eine magische Tür zu 
sein, die den Weg versperrt und die niemand sonst zu 
öffnen vermag. 

Es gibt verschiedene Gestaltungsmöglichkeiten für ein 
Rollenspiel auf dem Computerbildschirm. Die klassische 
Form ist dabei an die Karten und Notizen angelehnt, die 
man sich auf den Wanderungen erstellt. Daher zeigen viele 
Rollenspiele der ersten Generation für den C64 eine Karte 
auf dem Bildschirm, die die Orientierung erleichtert, und 
auf dem ein Symbol für die Spielfiguren bewegt wird. Eine 
andere Variante hat in letzter Zeit durch die Verbesserung 
der Grafik-Programmierung Einzug in die neueren Rollen¬ 
spiele gehalten. Dabei wird es dem Spieler selbst überlas¬ 
sen, sich eine Gesamtkarte der Umgebung zu zeichnen. 
Auf dem Bildschirm wird eine dreidimensionale Darstel¬ 
lung all dessen gezeigt, was man sehen würde, wenn man 
selbst durch die Augen der Figuren, die man steuert, 
schaute. Krasse Gegensätze dieser beiden Arten der Dar¬ 
stellung sind »Ultima IV« (Bild 4) der erfolgreichste Teil aus 
der Ultima-Reihe, und »The Bard’s Tale« (Bild 5) mit seinem 
kometenhaften Aufstieg zum Lieblings-Rollenspiel 1986 
der 64’er-Leserschaft. Beide haben ein sehr ausgeprägtes 
und differenziertes Magie-System, sind relativ umfang¬ 
reich, wurden mit einer schwierigen Aufgabe versehen und 
bieten die Eigenschaft von mehreren Spielcharakteren. 
The Bard’s Tale zeigt auf dem Bildschirm eine 3D-Szenerie 
der Stadt, in der man gerade herumläuft. Es lehnt sich 
dabei im wesentlichen an die Darstellung von Dungeons, 
also den Höhlenlabyrinthen aus fast allen Rollenspielen, 
an. In mehr oder minder guter Ausführung hat jedes Rollen¬ 
spiel eine solche 3D-Szenerie, um diese Irrgärten anzuzei¬ 
gen. Auch Rollenspiele neuerer Art wie »Alternate Reality« 
(Bild 6) zeigen sich in ähnlicher Weise auf dem Schirm. 
Natürlich fehlen die Dungeons auch in diesen Abenteuern 
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Bild 6. Viele Teile sollen bei »Alternate Reality« noch folgen 

nicht, nur Sichtentfernung und Beschaffenheit der Wände 
ändern sich entsprechend. Als Einsteiger fragt man sich 
oft: Wozu dann überhaupt noch solche Dungeons? Das 
Prinzip dieser Labyrinthe ist es, den Spielfluß etwas aufzu¬ 
lockern und die große Gesamtaufgabe, die hinter dem Spiel 
steht, in einige Teilaufgaben oder Rätsel zu verpacken. So 
soll der Spieler in jeder Dungeon noch unentdeckte 
Schätze bergen und Schlüsselgegenstände finden. Diese 
Gegenstände helfen ihm an einem anderen Ort weiter, bis 
man schließlich die Hauptaufgabe gelöst hat. Es gibt aber 
auch Rollenspiele, die ausschließlich in den Kammern sol¬ 
cher Dungeons stattfinden; beste Beispiele hierfür sind das 
schon erwähnte »Hack« oder »Standing Stones«. Auf dem 
Markt gibt es zur Zeit jedenfalls genug Rollenspiele, um 
auch anspruchsvollen Käufern stundenlangen Spaß zu 
gewe". >n. Mit »Destiny Knight« ist auch schon der neueste 
Teil der Bard’s-Tale-Reihe erschienen. Vielleicht wird es ja 
das Lieblings-Spiel 1987. Wer weiß? (jk) 


Trigon - Tron 

Eine Variante des Spielhallenklassikers Tron ist 
Trigon für den C64. In einer fast 17000 Felder 
großen Arena versuchen bis zu drei Akteure, sich 
möglichst lange ohne Kollisionen zu bewegen 
und die Gegner in die Enge zu treiben. 


läßt grüßen 

Der Multi-Monitor bietet während des Spiels eine Orien¬ 
tierungshilfe für die Spieler. Sein Rand ist auch gleichzeitig 
der Rand des Rasters. Die sich in ihm bewegenden drei 
Punkte geben den Standpunkt der jeweils gleichfarbigen 
Schlange auf dem Raster an. Ein Pixel des Multi-Monitors 
sind zwei Zeichen im Raster. 


D ie Spielidee ist folgende: Jeder teilnehmende Spieler 
fährt mit seiner Schlange auf einem Raster mit seinen 
zwei anderen Rivalen umher und hinterläßt dabei 
eine für alle Schlangen tödliche Spur. Ziel des Spiels ist es 
nun, die Gegner so auszumanövrieren, daß diese gegen 
eine Mauer stoßen, wonach ein gemeines »CRASHED« auf 
deren Monitor erscheint und somit das Spiel für sie beendet 
ist. Man muß allerdings dabei aufpassen, daß man nicht 
selbst ein Opfer seiner eigenen Mauern wird oder gegen 
eine Mine fährt. 

Ein Spiel besteht aus so vielen Runden, wie man in 
»Runs per Game« eingestellt hat (1 bis 99). 

Eine Runde ist beendet, wenn alle drei Schlangen ge- 
»crashed« sind. Dann erscheint unter dem Multi-Monitor 
die Aufforderung »Press any key«. Drückt man nun < F7>, 
so malt der Computer eine Multicolor-Grafik als Übersicht 
über das gesamte Raster auf den Bildschirm. 

Drückt man eine andere Taste, so beginnt die nächste 
Runde, so lange, bis die in »Runs per Game« eingestellte 
Zahl erreicht ist. 



Bild 1. Trigon erlaubt bis zu drei Spieler gleichzeitig am 
Computer 
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Eingabehinweise 

Zuerst tippen Sie »Trigon« (Listing) mit dem MSE ab. 
Nach dem Speichern kann man Trigon normal mit »LOAD 
"TRIGON",8« laden. 

Auswahl im Menü 

Nach dem Start erscheint eine Grafik auf dem Bild¬ 
schirm, die unter anderem das Menü darstellt (Bild 1). Mit 
den Zahlen 1 bis 3 stellt man ein, ob eine Schlange vom 
Computer oder von einem Spieler gesteuert wird. Sollte 
letzteres der Fall sein, dann gibt das Programm gleich die 
Steuerung des betreffenden Spielers aus. Die Zahlen, die 


in Klammern hinter den Steuerzeichen stehen, stellen die 
Punktzahl des gleichfarbigen Spielers dar. 

Die Anzahl der Runden eines Spiels verstellt man mit den 
Tasten <F5> und <F7>. 

Mit den Tasten < + > und <-> verstellt man die Häufig¬ 
keit der Minen. »0« bedeutet gar keine Minen und »255« auf 
jedem vierten Feld eine Mine. 

Mit <F1 > beginnt man ein völlig neues Spiel, bei dem 
alle Punktzahlen wieder auf Null zurückgesetzt werden. 

Mit <F3> beginnt ein neues Spiel, aber mit Erhalt der 
in den Klammern stehenden Punkten. 

(Hansjörg Beck/og) 
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a9 

lc 

aO 

66 

20 

le 

ab 

ea 

c5 

1 la9 


a9 

Od 

20 

d2 

ff 

ea 

a9 

4b 

dO 

llbl 

: 

aO 

66 

20 

le 

ab 

ea 

a9 

Od 

23 


1 lb9 


20 

d2 

ff 

ea 

a9 

58 

aO 

66 

4c 

llcl 


20 

le 

ab 

ea 

a9 

Od 

20 

d2 

62 

1 lc9 


ff 

ea 

a9 

8a 

aO 

66 

20 

le 

f 3 

11dl 


ab 

ea 

a9 

Od 

20 

d2 

ff 

ea 

6c 

1 ld9 


a9 

cl 

aO 

66 

20 

le 

ab 

ea 

cf 

1 lei 


a9 

Od 

20 

d2 

ff 

ea 

a9 

f 7 

61 

lle9 


aO 

66 

20 

le 

ab 

ea 

a9 

Od 

5b 

lifi 


20 

d2 

ff 

ea 

a9 

2c 

aO 

67 

25 

1 lf 9 


20 

le 

ab 

ea 

a9 

Od 

20 

d2 

9a 

1201 


ff 

ea 

a9 

40 

Bd 

5c 

03 

a9 

03 

1209 


05 

Bd 

5d 

03 

ad 

5c 

03 

1B 

87 

1211 


69 

01 

8d 

5c 

03 

ad 

5d 

03 

03 

1219 


69 

00 

Sd 

Sd 

03 

aO 

00 

ad 

22 

1221 


5c 

03 

ae 

5d 

03 

B5 

fe 

86 

bb 

1229 


ff 

a9 

e9 

91 

fe 

ad 

5c 

03 

7e 

1231 


1B 

69 

01 

Bd 

5c 

03 

ad 

5d 

3f 

1239 


03 

69 

00 

Bd 

5d 

03 

aO 

00 

13 

1241 


ad 

5c 

03 

ae 

5d 

03 

85 

fe 

b5 

1249 


B6 

ff 

a9 

69 

91 

fe 

ad 

Sd 

e9 

1251 


03 

c9 

06 

fO 

04 

bO 

Oc 

90 

fO 

1259 


07 

ad 

5c 

03 

c9 

7e 

bO 

03 

OB 

1261 


4c 

el 

49 

a9 

e9 

Bd 

7f 

06 

3a 

1269 


a9 

69 

8d 

40 

05 

a9 

58 

aO 

72 

1271 


67 

20 

le 

ab 

ea 

a9 

fb 

8d 

ec 

1279 


52 

03 

a9 

02 

Bd 

53 

03 

20 

b7 

1281 


d7 

42 

a9 

82 

aO 

67 

20 

le 

36 

12B9 


ab 

ea 

a9 

97 

aO 

67 

20 

le 

09 

1291 


ab 

ea 

a9 

c6 

aO 

67 

20 

le 

f 6 

1299 


ab 

ea 

a9 

Od 

20 

d2 

ff 

ea 

34 

12al 


a9 

e6 

aO 

67 

20 

le 

ab 

ea 

4a 

12a9 


a9 

Od 

20 

d2 

ff 

ea 

a9 

02 

3d 

12bl 


aO 

68 

20 

le 

ab 

ea 

a9 

Od 

24 

12b9 


20 

d2 

ff 

ea 

a9 

26 

aO 

68 

bf 

12c 1 


20 

le 

ab 

ea 

a9 

Od 

20 

d2 

62 

12c9 


ff 

ea 

a9 

4b 

aO 

68 

20 

le 

lb 

12dl 


ab 

ea 

a9 

76 

aO 

6B 

20 

le 

34 

12d9 


ab 

ea 

a9 

Od 

20 

d2 

ff 

ea 

74 

12el 


a9 

22 

Bd 

52 

03 

a9 

07 

8d 

fe 

12e9 


53 

03 

20 

d7 

42 

a9 

9d 

aO 

ea 

12f 1 


6B 

20 

le 

ab 

ea 

a9 

20 

20 

23 

12f 9 


d2 

ff 

ea 

ae 

6a 

03 

ad 

6b 

aB 

1301 


03 

20 

cd 

bd 

ea 

e6 

d3 

a9 

cB 

1309 


aO 

aO 

6B 

20 

le 

ab 

ea 

a9 

56 

1311 


Od 

20 

d2 

ff 

ea 

a9 

a3 

aO 

af 

1319 


68 

20 

le 

ab 

ea 

a9 

00 

Sd 

a5 

1321 


5d 

03 

ad 

5d 

6d 

Bd 

5c 

03 

d2 

1329 


ad 5d 03 c9 

00 dn tu, 

ad 

89 

1331 


5c 

03 

C9 

00 

dO 

03 

4c 

14 

00 

1339 


4b 

20 

74 

4c 

4c 

22 

4b 

a9 

91 

1341 


b2 

aO 

68 

20 

le 

ab 

ea 

a9 

aO 

1349 


Od 

20 

d2 

ff 

ea 

a9 

S6 

Bd 

4c 

1351 


52 

03 

a9 

07 

Sd 

53 

03 

20 

30 

1359 


d7 

42 

a9 

bf 

aO 

68 

20 

le 

be 

1361 


ab 

ea 

a9 

20 

20 

d2 

ff 

ea 

5e 

1369 


ae 

6c 

03 

ad 

6d 

03 

20 

cd 

cf 

1371 


bd 

ea 

e6 

d3 

a9 

c2 

aO 

68 

db 

1379 


20 

le 

ab 

ea 

a9 

Od 

20 

d2 

la 

13B1 


ff 

ea 

a9 

c5 

aO 

68 

20 

le 

22 

1389 


ab 

ea 

a9 

00 

Bd 

5d 

03 

ad 

3f 

1391 


5c 

6d 

Bd 

5c 

03 

ad 

Sd 

03 

ac 

1399 


c9 

00 

dO 

Oa 

ad 

5c 

03 

c9 

35 

13al 


00 

dO 

03 

4c 

Bl 

4b 

20 

74 

30 

13a9 


4c 

4c 

8f 

4b 

•9 

d4 

aO 

66 

fd 

13bl 


20 

le 

ab 

ea 

a9 

Od 

20 

d2 

52 

13b9 


ff 

ea 

a9 

ea 

Bd 

52 

03 

a9 

CO 

13cl 


07 

Bd 

53 

03 

20 

d7 

42 

a9 

el 

13c9 


el 

aO 

68 

20 

le 

ab 

ea 

a9 

57 

13dl 


20 

20 

d2 

ff 

ea 

ae 

6e 

03 

9a 

13d9 


ad 

6f 

03 

20 

cd 

bd 

ea 

e6 

47 

13el 


d3 

a9 

e4 

•0 

6B 

20 

le 

ab 

2d 

13e9 


ea 

a9 

Od 

20 

d2 

ff 

ea 

a9 

lb 

13f 1 


e7 

aO 

60 

20 

le 

ab 

ea 

a9 

85 

13f9 


00 

Bd 

5d 

03 

ad 

ab 

6d 

Bd 

fe 

1401 


5c 

03 

ad 

5d 

03 

c9 

00 

dO 

16 

1409 


Oa 

ad 

5c 

03 

c9 

00 

dO 

03 

47 

1411 


4c 

i i- 

4b 

20 

74 

4c 

4c 

fc 

BO 

1419 


4b 

a9 

f 6 

aO 

6B 

20 

le 

ab 

62 

1421 


ea 

a9 

Od 

20 

d2 

ff 

ea 

a9 

53 

1429 


03 

aO 

69 

20 

le 

ab 

ea 

a9 

19 

1431 


20 

20 

d2 

ff 

ea 

ae 

68 

03 

e2 

1439 


ad 

69 

03 

20 

cd 

bd 

ea 

e6 

a4 

1441 


d3 

a9 

Od 

20 

d2 

ff 

ea 

a9 

5c 

1449 


00 

Bd 

5d 

03 

ad 

4b 

6d 

Bd 

ce 

1451 


5c 

03 

a9 

16 

aO 

69 

20 

le 

6e 

1459 


ab 

ea 

a9 

20 

20 

d2 

ff 

ea 

56 

1461 


ae 

5c 

03 

ad 

Sd 

03 

20 

cd 

be 

1469 


bd 

ea 

t'6 

d3 

•9 

Od 

20 

d2 

fB 

1471 


ff 

ea 

a9 

00 

Bd 

53 

03 

ad 

2b 

1479 


53 

öd 

Bd 

52 

03 

a9 

49 

aO 

14 

14B1 


69 

20 

le 

ab 


a9 

20 

20 

b4 

1489 


d2 

ff 

ea 

ae 

52 

03 

ad 

53 

B6 

1491 


03 

20 

cd 

bd 

ea 

e6 

d3 

a9 

58 

1499 


lb 

Bd 

11 

dO 

4c 

83 

4c 

a9 

3f 

Mal 


69 

aO 

69 

20 

le 

ab 

ea 

a9 

f 7 

14a9 


Od 

20 

d2 

ff 

ea 

60 

a9 

OO 

d3 

Mbl 


Bd 

5d 

03 

ad 

cb 

00 

Bd 

5c 

Of 


14b9 


03 

ad 

Sd 

03 

c9 

00 

dO 

Oa 

3f 

14cl 


ad 

Sc 

03 

c9 

3S 

dO 

03 

4c 

45 

14c9 


2a 

4d 

ad 

5d 

03 

c9 

OO 

dO 

dl 

14dl 


Oa 

ad 

5c 

03 

c9 

3b 

dO 

03 

e9 

14d9 


4c 

3a 

4d 

ad 

5d 

03 

c9 

00 

60 

Mel 


dO 

Oa 

ad 

5c 

03 

c9 

OB 

dO 

ed 

14e9 


03 

4c 

4a 

4d 

ad 

5d 

03 

c9 

b4 

14f 1 


00 

dO 

Oa 

ad 

5c 

03 

c9 

04 

9f 

14f 9 


dO 

03 

4c 

■1 

4d 

ad 

Sd 

03 

50 

1501 


c9 

00 

dO 

Oa 

ad 

5c 

03 

c9 

9d 

1509 


05 

dO 

03 

4c 

bf 

4d 

ad 

Sd 

99 

1511 


03 

c9 

00 

dO 

Oa 

ad 

5c 

03 

98 

1519 


c9 

06 

dO 

03 

4c 

c2 

4d 

ad 

eS 

1521 


5d 

03 

c9 

00 

dO 

Oa 

ad 

5c 

3f 

1529 


03 

c9 

03 

dO 

03 

4c 

f 2 

4d 

e5 

1531 


ad 

5d 

03 

c9 

00 

dO 

Oa 

ad 

91 

1539 


5c 

03 

c9 

2B 

dO 

03 

4c 

24 

2d 

1541 


44 

ad 

Sd 

03 

c9 

00 

dO 

Oa 

OB 

1549 


ad 

5c 

03 

c9 

2b 

dO 

03 

4c 

fc 

1551 


49 

44 

4c 

B3 

4c 

a9 

5d 

Bd 

e2 

1559 


52 

03 

a9 

6d 

8d 

53 

03 

20 

05 

1561 


Sa 

4d 

4c 

b5 

4a 

a9 

5c 

Bd 

aa 

1569 


52 

03 

a9 

6d 

Bd 

53 

03 

20 

15 

1571 


Sa 

4d 

4c 

b5 

4a 

a9 

5b 

Bd 

b6 

1579 


52 

03 

a9 

6d 

Bd 

53 

03 

20 

25 

1581 


Sa 

4d 

4c 

b5 

4a 

ad 

52 

03 

ad 

15B9 


B5 

fe 

ad 

53 

03 

85 

ff 

aO 

01 

1591 


00 

Bc 

5d 

03 

bl 

fe 

Bd 

5c 

91 

1599 


03 

ad 

Sd 

03 

c9 

00 

dO 

Oa 

lf 
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ad 

Sc 

03 

c9 

01 

dO 

03 

4c 

b2 

15a9 


90 

<ld 
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00 

ad 

52 

03 

ae 

df 

15bl 


53 

03 

85 

fe 

86 

ff 

a9 

01 

dB 

15b9 


91 

fe 

60 

aO 

00 

ad 

52 

03 

b2 

15cl 


ae 

53 

03 

B5 

fe 

86 

ff 

a9 

02 

15c9 


00 

91 

fe 

60 

a9 

00 

Bd 

6a 

03 

15dl 


03 

a9 

00 

Bd 

6b 

03 

a9 

00 

dO 

15d9 


Bd 

6c 

03 

a9 

OO 

Bd 

6d 

03 

bb 

15el 


a9 

00 

Bd 

6e 

03 

a9 

00 

Bd 

54 

15e9 


6f 

03 

4c 

6e 

44 

a9 

00 

Bd 

67 

15f 1 


53 

03 

ad 

53 

bd 

Sd 

52 

03 

2e 

15f 9 


ad 

53 

03 

c9 

00 

dO 

Oa 

ad 

54 

1601 


52 

03 

c9 

63 

dO 

03 

4c 

22 

4e 

1609 


4e 

ad 

52 

03 

18 

69 

01 

8d 

Of 

1611 


52 

03 

ad 

53 

03 

69 

00 

Bd 

51 

1619 


53 

03 

4c 

22 

4e 

a9 

00 

Bd 

93 

1621 


53 

03 

ad 

53 

6d 

Bd 

52 

03 

5e 

1629 


ad 

53 

03 

c9 

00 

dO 

Oa 

ad 

84 

1631 


52 

03 

c9 

01 

dO 

03 

4c 

22 

32 

1639 


4e 

ad 

52 

03 

38 

e9 

01 

8d 

45 

1641 


52 

03 

ad 

53 

03 

■9 

00 

Bd 

85 

1649 


53 

03 

4c 

22 

4e 

a9 

18 

Bd 

23 

1651 


d6 

00 

ad 

52 

03 

Bd 

53 

6d 

a2 

1659 


a9 

le 

Bd 

d3 

00 

20 

10 

e5 

fc 

1661 


ea 

a9 

77 

aO 

69 

20 

le 

ab 

79 

1669 


ea 

a9 

20 

20 

d2 

ff 

ea 

ae 

6a 

1671 


52 

03 

ad 

53 

03 

20 

cd 

bd 

fe 

1679 


ea 

e6 

d3 

a9 

79 

aO 

69 

20 

83 

1681 


le 

ab 

ea 

a9 

00 

Bd 

5c 

03 

48 

16B9 


a9 

00 

Bd 

Sd 

03 

ad 

5c 

03 

56 

1691 


1B 

69 

01 

Bd 

5c 

03 

ad 

5d 

9f 

1699 


03 

69 

00 

Bd 

5d 

03 

ad 

5d 

62 

16al 


03 

c9 

03 

fO 

04 

bO 

Oc 

90 

7f 

16a9 


07 

ad 

5c 

03 

c9 

e8 

bO 

03 

ab 

16b 1 


4c 

62 

4e 

4c 

B3 

4c 

4c 

Bb 

2e 

16b9 


4e 

4c 

4d 

50 

a9 

2 a 

Bd 

42 

31 

16cl 


03 

a9 

04 

8d 

43 

03 

a9 

34 

a7 

16c9 


Bd 

<14 

03 

a9 

04 

Bd 

45 

03 

36 

16dl 


a9 

ec 

Bd 

46 

03 

a9 

05 

Bd 

c9 

16d9 


47 

03 

ad 

54 

03 

38 

■9 

f 3 

19 

16el 


Bd 

4B 

03 

ad 

55 

03 

e9 

02 

22 

16e9 


Bd 

49 

03 

a9 

00 

Bd 

5d 

03 

f 9 

16f 1 


ad 

S6 

6d 

Bd 

5c 

03 

ad 

5d 

26 

16f 9 


03 

c7 

00 

dO 

Oa 

ad 

5c 

03 

80 

1701 


c9 

01 

dO 

03 

4c 

37 

SB 

20 

ff 

1709 


7e 

4f 

a9 

42 

Bd 

42 

03 

a9 

2c 

1711 


04 

Bd 

43 

03 

a9 

4c 

Sd 

44 

c9 

1719 


03 

a9 

04 

Bd 

45 

03 

a9 

04 

bf 

1721 


Bd 

46 

03 

a9 

06 

Bd 

47 

03 

b7 

1729 


ad 

56 

03 

3B 

e9 

f 3 

0d 

48 

ce 

1731 


03 

ad 

57 

03 

e9 

02 

8d 

49 

b9 

1739 


03 

a9 

OO 

Bd 

5d 

03 

ad 

57 

16 

1741 


6d 

Bd 

5c 

03 

ad 

5d 

03 

c9 

52 

1749 


00 

dO 

Oa 

ad 

Sc 

03 

c9 

01 

fl 

1751 


dO 

03 

4c 

3d 

5B 

20 

7o 

4f 

7d 

1759 


a9 

16 

8d 

42 

03 

a9 

06 

Sd 

6a 

1761 


43 

03 

a9 

20 

Bd 

44 

03 

a9 

ef 

1769 


06 

Bd 

45 

03 

a9 

dB 

Bd 

46 

Oc 

1771 


03 

a9 

07 

Bd 

47 

03 

ad 

58 

bO 

1779 


03 

38 

E-9 

f 3 

Bd 

4B 

03 

ad 

14 

17B1 


59 

03 

e9 

02 

Bd 

49 

03 

a9 

99 

1789 


00 

Sd 

5d 

03 

ad 

SB 

6d 

Bd 

76 

1791 


5c 

03 

ad 

5d 

03 

c9 

00 

dO 

a6 

1799 


Oa 

ad 

5c 

03 

c9 

01 

dO 

03 

df 
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ACTION-SPIELE 


C64 


17al 


9c 

93 

58 

20 

7e 

9f 

9c 

Be 

5a 

17a9 


90 

a9 

36 

8d 

01 

00 

ad 

9B 

59 

17bl 


03 

85 

fe 

ad 

99 

03 

85 

ff 

af 

17b9 


aO 

00 

8c 

9b 

03 

bl 

fe 

Bd 

bb 

17cl 


9a 

03 

ae 

92 

03 

ad 

93 

03 

31 

17c9 


86 

fe 

85 

ff 

aO 

00 

ad 

9a 

85 

17dl 


03 

91 

fe 

ad 

92 

03 

18 

69 

82 

17d9 


00 

Bd 

9e 

03 

ad 

93 

03 

69 

68 

17el 


d9 

Bd 

9f 

03 

ae 

9e 

03 

ad 

75 

17e9 


4f 

03 

B6 

fe 

85 

ff 

aO 

00 

16 

17f 1 


ad 

9a 

03 

91 

fe 

ad 

93 

03 

27 

17f 9 


cd 

95 

03 

fO 

09 

bO 

Od 

90 

63 

1801 


OB 

ad 

92 

03 

cd 

99 

03 

bO 

3d 

1B09 


03 

9c 

27 

50 

ad 

99 

03 

18 

3f 

1811 


69 

28 

8d 

99 

03 

ad 

95 

03 

33 

1819 


69 

00 

Sd 

95 

03 

ad 

92 

03 

3b 

1821 


18 

69 

ld 

Sd 

92 

03 

ad 

93 

60 

1B29 


03 

69 

00 

•Bd 

9 3 

03 

ad 

98 

26 

1831 


03 

1B 

69 

8b 

Sd 

98 

03 

ad 

Bf 

1839 


99 

03 

69 

00 

8d 

99 

03 

ad 

e9 

1891 


95 

03 

cd 

97 

03 

dO 

Ob 

ad 

a2 

1899 


99 

03 

cd 

96 

03 

dO 

03 

9c 

a6 

1851 


9c 

50 

ad 

92 

03 

1B 

69 

01 

12 

1859 


8d 

92 

03 

ad 

93 

03 

69 

00 

70 

1861 


Sd 

93 

03 

ad 

9B 

03 

18 

69 

d6 

1B69 


01 

8d 

98 

03 

ad 

99 

03 

69 

a7 

1871 


00 

Bd 

99 

03 

9c 

83 

9f 

60 

c9 

1879 


a9 

00 

Bd 

5d 

03 

ad 

56 

6d 

03 

18B1 


8d 

5c 

03 

ad 

5d 

03 

c9 

00 

cB 

1889 


dO 

Oa 

ad 

5c 

03 

c9 

01 

dO 

79 

1891 


03 

9c 

ef 

50 

ad 

66 

03 

18 

Oa 

1899 


69 

01 

Bd 

66 

03 

ad 

67 

03 

f 9 

IBal 


69 

00 

Bd 

67 

03 

aO 

00 

ad 

eb 

18a9 


59 

03 

ae 

55 

03 

85 

fe 

86 

3a 

lBbl 


ff 

a9 

d2 

91 

fe 

ad 

59 

03 

20 

18b9 
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C64 


ACTION-SPIELE 


Der Verminator kommt 


Für viele sind Schießspiele einfach das Größte. 
Wenn Sie dabei auch noch etwas Überlegung für 
ein Höhlenlabyrinth aufwenden möchten und 
eine Mission erfüllen wollen, wird der Verminator 
besonders interessant für Sie sein. 

A chtung! Ein gefährlicher Krimineller hat unter Ihrer 
Stadt ein radioaktiv verseuchtes Labyrinth geschaf¬ 
fen. In diesem Labyrinth sind mehrere Bomben ver¬ 
steckt, um die gesamte Stadt auf einen Schlag zu vernich¬ 
ten. Da man den Plan des Erzschurken jedoch inzwischen 
spitzbekommen hat, muß jemand die gefahrvolle Aufgabe 
übernehmen, alle Bomben zu entschärfen. Damit so etwas 
nicht noch einmal passieren kann, soll der Obergangster in 
seiner Basis gleich mit ausgeschaltet werden. Kein anderer 
als Sie selbst übernimmt diese heldenhafte Aufgabe. Als 
einziger besitzen Sie den sagenhaften Kampfpanzer »Ver¬ 
minator«. 

Um den Verminator zu starten, müssen Sie lediglich das 
MSE-Listing (Listing) abtippen und es dann ganz normal 
von Diskette laden. Im Titelmenü können Sie mit einem im 
Control-Port 1 eingesteckten Joystick den Schwierigkeits- 
level, in dem Sie starten wollen, anwählen. Nach Druck auf 
den Feuerknopf werden Sie mitsamt Panzer in das unter¬ 
irdische Höhlenlabyrinth teleportiert (Bild). Der Verminator 
besitzt sowohl einen Fahrt- wie auch Flugmodus. Beim 
Fahren auf dem Untergrund des Labyrinths sollte man es 
vermeiden, mehrmals schnell hintereinander anzufahren 
und stehenzubleiben. Dies würde das Navigationssystem 
des Verminators durcheinanderbringen. Sobald man 
bemerkt, daß sich der Panzer irgendwie merkwürdig ver¬ 
hält, sollte schnellstens in den Flugmodus übergewechselt 
werden. Liegen während der Fahrt weniger als zwei Drittel 
des Gefährts auf dem Felsen auf, verliert der Verminator 
sein Gleichgewicht. Dies hat einen katastrophalen Absturz 
zur Folge. Um im Flugmodus zu verbleiben, braucht der 
Verminator eine gewisse Mindesthöhe, sonst schrammt er 
über den Felsboden. Landen darf man im Prinzip auf allen 
Flächen, auch auf den Schrägen. Dabei gibt es nur eine 
Ausnahme: Knapp vor Beginn einer Schräge darf nicht 


gelandet werden, da dort das Navigationssystem nicht 
genug Daten bekommt und der Verminator detoniert. 
Hüten Sie sich vor radioaktiv verseuchten Stellen. Beach¬ 
ten Sie auch, daß jede Aufschlagstelle eines Schusses 
radioaktiv verseucht wird. Welchen Schaden der Vermina¬ 
tor noch verkraften kann, kann aus der Damage-Anzeige 
ersehen werden. Die Anzeige »Bombs« zeigt, wieviele 
Bomben noch gefunden und zerstört werden müssen. Die 
Time-Anzeige ist für die Übersicht der verbleibenden Zeit 
bis zur Detonation der Bomben. Es gibt natürlich einige 
Hindernisse, die einem das Leben gehörig schwer ma¬ 
chen. Es sind Laserstrahlen, Raketen und Fallminen. Auch 



Bild. Der Verminator in voller Aktion 


den Basen und Schwebminen sollte man nicht zu nahe 
kommen. Falls ein Level geschafft wurde, gibt es natürlich 
auch einen Extra-Bonus. 

Das Spiel kann jederzeit mit <RESTORE> abgebro¬ 
chen werden. Abschließend noch eine Übersicht zur Punk- 


teverteilung. 

Bombe 

500 

Raketenbasis 

300 

Rakete 

500 

Laserbasis 

200 

Fallmine 

400 

Schwebemine 

50 
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Ergänzen Cfl^OK 

iot-rt lk M U 1 # d , 


Sie jetzt Ihre 


-Sammlung 


Schaffen Sie sich ein interessantes Nachschlagewerk und gleichzeitig ein 
wertvolles Archiv! 

Kennen Sie alle Ausgaben von 64’er? Suchen Sie einen ganz bestimmten Testbericht? Oder haben Sie einen Teil 
eines interessanten Kurses versäumt? Suchen Sie nach einer speziellen Anwendung? 

Damit Sie jetzt fehlende Hefte mit »Ihrem« Artikel nachbestellen können, finden Sie auf diesen Seiten eine 
Zusammenstellung aller wesentlichen Artikel der Ausgaben 01 bis 12/85. 

Und so kommen Sie schnell an die noch lieferbaren Ausgaben: Prüfen Sie, welche Ausgabe in Ihrer Sammlung 
noch fehlt, oder welches Thema Sie interessiert. Tragen Sie die Nummer dieser Ausgabe und das Erscheinungs¬ 
jahr (z.R 2/85) auf dem Bestellabschnitt der hier eingehefteten Bestell-Zahlkarte ein. Die ausgefüllte Zahlkarte ein¬ 
fach heraustrennen und Rechnungsbetrag beim nächsten Postamt einzahlen. Ihre Bestellung wird nach Zahlungs¬ 
eingang umgehend zur Auslieferung gebracht. 


Stichwort 

Tlt.1 

Seite 

Insgabe 

Stichwort 

Titel 

Seite 

Ausgabe 

Aktuell 




Rennor 

Dto Renner 1985 Meistvorkau/te Spiel« 

34 

12/85 




Schach 

Viermal Schachmatt Verschiedene Schnchprogramme 33 

12/85 

Allgemeines 

Commodore Gestern Heute Morgen 

10 

01/85 

Simulation 

Elite 

148 

W/85 

Computor 

Amiga - Der noue Supoicompulor 

B 

09/85 


Jump Jot 

140 

C9/85 

lntorviow 

Imor/iow mit David Crano (Game De.tigr.or) 

146 

06/85 


Supor Huey HubBchioubornimulator 

49 

07/85 

Lernen 

Schuio braucht Computer (VAM-Computor) 

9 

06/85 

Spott 

BoxBpiolo Frank Bruno» B « Barry McGuigan 



Messen 

International Chaos Communication Congiens 

15 

03/85 

Champtons. B 

49 

12/85 


HoiSe Moose in der Wusto' CES 

B 

03/85 




11/85 








Hannover-Messu 35 


07/85 


Nick FBldo Playn ihe Oiren (ColO 

159 

10/85 


Chicago im Zeichen dor CE5 

0 

C8/85 


Rallyo Speedway 

49 

07/85 


Akiuelloc von der C'85 ln Köln 

15 

08/85 


Stapahot (Eishockey) 

50 

07/85 


Btx Tbal (Intomationalo Funkausstollung) 

8 

10/85 


Summer Camos II 

146 

09/85 


PCW-Computcrmossc tn London 

0 

il/85 


World Sones Baseball 

49 

07/85 


Neues von dei Commodoio-Fachausstellung 1685 

3 

12/85 

Diverses 

New York City und Air Support 

145 

06/65 

Recht 

Die noue Ab mahn manche — Vorslchi boi Pro- 

0 

CS/85 






grammangoboton 

Die Ex-Knacker - wo sind aie gebhoben’ 

27 

03/85 

Hardware-Tips und Bananleitungen 




Interview mit Raubkopiercrn (Section 0) 

23 

OD/85 

Audio/Vidoo 

Mit 5 Mark zu neuon DlmomKoncn (Stereoanlage 

34 

05/85 


Schützer kontra Knucki» 

33 

03/85 


am C 6«) 




Raub-Talkshow 

13 

03/85 


Dn Monitor ixt genug (RGB ♦ Compoatto an C 123) 

16 

10/85 


Das Urhcbonochtsgcsotz und Gedanken zu seiner 

21 

OD/85 

C 16 

Alle Darat,eiie am C 16 

31 

04/85 


Anwendung 




Alter Joystick am C 16 

35 

05/85 


Änderung dos Urhebenechtsgcsetsos 

162 

09/85 

Eingabe- 

Dor Hexer - ZusaWastatur für der. MSE 

49 

10/85 

Buchbesprechungen 



gerSte 

EPROM 

EPROM? im Expansion-Pon . . _ 

46 

10/05 




EPROM-Trans - Die Sepcsv£.-We:ur- 

42 

10/05 

Anfänger 

Goldmann Computer Compact 

B7 

03/83 


Das 64‘er EPBOM-Programiruesgorat. Teil l 

44 

12/05 










Alles ubor don C C-4 Sachbuchreihe. Band 1 

115 

05/85 

setto 





Lchrapiclxeup Computer. C 64/VC 20 

112 

11/65 

Die Datasctt® streikt nie wieder (Anpassung des 

34 

10/B5 


C o4 Compuicihandbucn 

171 

11/85 


Tbnkopfs) 




Emfuhrungskunr Commodore 64 

144 

12/85 

LEC-Bus 

Auf zu neuen Wollen; IEC-Bub im Solbstbau 

<4 

07/85 

Anwendung 

Dicnstpr cg ramme VC 30, C 64 und SX 

86 

0Ö/85 


(' Fohlorteufel 1C/B5) 




5paß an Mathe nut dem Commodore 64 

63 

07/85 

Joystick 

Joystick im Solbstbau 

33 

03/85 


Mathe für die Oberstufe mit dem C 64 

60 

07/85 


46 

06/BS 


Mathematische Routinen VC SO. Elokmnechmk/ 

112 

11/85 

R5232/V.24 

Da» 30-Mark-lntcrfaco (Solbstbau RS232) 

39 

03/85 


Eloktioiuk 




Genau betrachtet: Die RS232/V.24-SchnItt*ellc 

ao 

05/85 


Commodore 64-Ustingr,. Band 2 Dateiverwaltung. 

112 

11/85 

Diverses 

Userpon-Displav 

36 

05/35 


Schul® Hobby 




RoBot-TMter für alle Tallo (-Fchlon 9/66) 

130 

06/65 


Das Tramingabuch zum Data mal 

144 

12/88 



41 

07/BS 

C 133 

Buchor zum C 138 

32 

10/85 


umxchaltung) 



DFU 

Das Mailbox-Jahibueh Nutz die Netze 

112 

11/85 




Craftk 

Grafik auf dom Commodore 64 (*■ Fohlen 9/85) 

86 

CS/85 






Einführung in CAD nut dem Commodote 64 

128 

06/85 

Hardware-Grundlagen 





88 

07/88 







115 

ce/85 

Computer 

Waa bnr.gt dor C 1287 

26 

11/85 


Von Basic xu Assembler Das Commodore-Buch 

119 

06/85 

Drucker 

Wolchor Druckor i« dor Richttgo? (Grundlagon) 

15 

05/85 

ron 

Band 4 




Hammerwerke - wie funktionieren Typenrad- 

32 

06/85 

64 Intom 

115 

06/85 


drucket 

24 

07/85 


Das Interface Ago System-Handbuch xum C 64 

Das C 64 Buch. Band 5 Simons Basic Leitfaden 

144 

12/85 


♦ Ploltor 

44 

00/85 


Baaicodo 

144 

12/85 

Eingab«- 

Voratoht Sie Ihr Computor» (Wio funktionieren 


Noch mohr Tips und Tnckn zum 64er 

144 

12/85 

gorüto 

Eingabegeräte) 

139 

06/85 

Speichern 

Dos Kaasettonbuch »um C 64 und VC 30 

67 

03/85 

Floppy 

Doppy oder Datafletio» 


Die Floppy 1541 (MAT 

80 

07/85 





Spiele 

Rnmbachs C 64 Spielführer 

Commodore 64-U9nnga Band 1. Spiele 

B7 

US 

03/85 

11/85 

Peripherie 

Dos Kobel zum Montier Welche Normen gibt es? 
Graflkemgabogerti Wie funktionieren aio? 

38 

30 

12/85 

08/85 


35 ausgesuchte Spiole für Ihren Commodore 64 

171 

1/85 









Hardware-Tests 



64 er Extra 



Compuier 

Gonorationswcchflnl Tobi C 16 

16 

01/85 

Pioseuor 

BofehLsaatx des 8603/6510-Prozessors 

84 

09/85 


Erator ausfuhrlichor Tbsi C 126 PC (Teil 1) 

16 

06/85 

Grafik 


93 

10/85 


Erater auifuhihchor To« C 120. PC (Tbil 2) 

17 

07/85 

Sound 

Dei SID-Chipsnino Register und Programmierung 

93 

11/86 

DFÜ 

Marktuberaicht Modems & Akuotikkopplor 

33 

07/83 

Speicher 

Dio Speichotbelegung dos C 64 

96 

12/85 

Drucker 

Vorgloich Druckor unter 700 Mark (Tests und 
Motfciuberaicht) 

TbatB und Marktuberaicht TypenraddrucUor 

Tbst. Bioihör EP 44 

18 

05/85 

Abenteuerlösungen 




38 

37 

00/85 

07/85 

Uwungon 

Dallos-Quo« Losung 

90 

01/85 


Brothai TC-60O 

118 

08/85 


Ouncho Knll-Enchaniei Ul gelost 

44 

03/85 


Rite man C» 

133 

09/85 


Infocom-Cohelmmsso golüftot’ 

40 

03/65 


Panasonic KX-P1091 

134 

09/05 


Des Rätsels Losung Amason 

145 

06/85 


Star SC 10C 

132 

09/85 


Activimon Adventuros ontschloiert (Mindahadow 

36 

12/85 


Meiehere CN10X - wto hatton Sie» donn gom’ 

25 

10/05 






Cehountip Dor RH DP IC-, 

24 

10/85 


Eurolu' - Ich hab»i 

37 

12/85 


Epson CX 80 - o:not dir allo 

26 

10/85 


Lösungen tu Hitchhiker» Guido und Sorcerer 

39 

12/85 


MPS 003 — ein Druckor für alle Gelegenheiten’ 

40 

i/es 





Epson JX-80 dar. vielfarbige Druck-Ceriio 

38 

11/flO 

Spiele-Tests 




Epson FX-8B neuo Rofoionz 

SP 1000 VC - Suporetar mit Haken 

43 

41 

11/85 

11/85 

007 

James Bond - A View io * 1CUI 

136 

00/85 


Der NEC-P2 - das fomOflllicho Wunder 

159 

12/85 

Abentouor 

Abenlouoipakol 1 

46 

08/85 


DMPC9 - eine solid« Sacho 

162 

12/06 


Shadcwfuo 

146 

09/03 


Das DoppoliobondoBjoystick-Pons: lOoi-Tasututen 

50 

09/95 


Tho Ouosl - mit C 64 auf 5ucho nach Drachen 

47 

01/65 


Joystick» Tost und Mar ktUbo reicht (* Fchlcrtoufrl 

10 

11/85 

Aclion 

Hexenküche 

50 

07/65 


13/85) 




Master of tho Lamps 

46 

07/8S 


Es gohi auch andere lighipona und Trackballn 

23 

U/8S 


Roncue on Fractalus 

158 

10/65 

EPROMor 

Fliach gebrannt ist halb gespeichert (EPROM- 

39 

07/86 


Stellar 7 

49 

08/05 


Programmiergeräte imTost) 



Construcüon 

Mail Order Monstern 

<9 

08/85 


OuIckByto II - das Kraftpaxct 

14 

10/86 

Set 




F.oppy'Data- 

Turbo-FIoppies. xworto Generation Spooddos plus 

28 

10/05 


Racing Dostruction S»t 

50 

08/85 

sotie 

* Prolcglc DOS 



Geschick- 

Austialopodicus Robust us 

50 

06/85 


Das großo Pennen Schnelle Bandlaufwerke 

37 

10/05 

Uchkott 

Bouldor Daah II 

1S9 

10/85 


Floppios) 

30 

10/85 


Crystal Casüua 

50 

07/85 


Gut gekauft ist halb gespeichert (Maikiubornichl 

38 

I0/8S 


Gribbly s Day out 

148 

09/65 


Dtaketten) 




Rockn Boi: 

45 

08/65 

Grafik 

Die Videowerkstat: (Digitizor-Tosi) 

32 

05/65 


Thing on a Spring 

159 

10/85 


Digitalbildor m d C 64: PnntTochmk Digiuzer 

24 

01/B5 



48 

01/65 

Interface 

Hardwaro-lnierlace ganz weich Test EC 64 

23 

01/ES 


Roland» Rat Race 

49 

06/65 


Guto Connoctiona - Übersicht Schnittstellen 

21 

03/65 

Advemures 





Card/Print »6 — Das Allround-lnicrface 

20 

03/85 


Fourth Protoeol und Franfco g t H 

162 

11/85 


Das Wiesemann-CenirotUca-Interface 

18 

03/SS 



Eist ein IEC-Bub Offnot Tur und Tbr 
(f Fehlen 4/6-85) 

34 

03/85 

Momtoio 

MarklUbenucht Monochrome Monnoio 

30 

12/85 

Musik 

Trommelwirbel Te« Digital Drums 

45 

0B/83 


Dio Musskhardware xum C 64 

17 

09/85 

Roboter 

Roboter selbst gebaut (rischoncchmk) 

1B7 

10/85 

Scanner 

So lernt Ihr Druckor lasen 

30 

06/85 

Spoichei 

Spoichortumng VC 20.1»« 64 KByto Karto 

28 

01/85 

Stouern 

Flottes Turmchon. MEA-Intorfacc 

116 

06/85 


Kurse 


Assembler 

Assembler rat kotno Alchimie TbU 5 

142 

01/05 


Assembler Ist körne Alchimie. Teil 7 

124 

03/05 


Assembler i« keine Alchimie. Teil 9 

138 

05/85 


Assembler ist koino Aichimio Tod 10 

127 

07/85 


Assembler I« keine Aichimio. Teil 11 

126 

08/85 


Assembler ist koino Aichimio. TBil 12 

109 

09/85 


Assembler tat keine Alchimie. Tbil 13 (Schluß) 

143 

10/85 

C 128 

Entdeckungsreise duch den C 138 

42 

12/85 

Effektives 

Mullabfuhr im Computor Carbogo Collection. 

122 

01/8S 

Programm- 

Teil 1 




Finder, mu System, eino neuartige Suchmethode. 

TbU 3 

148 

03/85 


Sortieren mit dom Computor. Tbil 2 

159 

05/85 


Sortieren nut dem Computer. Toil 2 

124 

06/85 


Sortieren mit dem Computer. Teil 4 

138 

06/35 


Sortieren mit dem Compuier, Tbil 5 

124 

09/85 


Sortieren mit dom Computor. Tbil 6 (Schluß) 

150 

12/05 

Erlern 

C 64 i’xtnm — Der Wog nach draußen, Tod 1 

144 

08/05 


C 64 esiern — Der Weg nach draußen, TOü 2 

123 

09/85 


C 64 extern-Dor Weg nach draußen. Tbil 3(5chluß) 

129 

10/05 

Floppy 

In die Gcnrnmnisso der Foppy eingetaucht. Tbil 4 

148 

01/85 


ln die Gcheimrusc dor Floppy oingetaucht, Ted 5 

130 

03/85 


In die Geheimmso der Floppy eingetaucht. Tbil 6 

145 

05/05 


ln die Geheimnisse dor Floppy eingeouchi. Teil 7 
(Schluß) 

116 

06/85 


Dsroctory-Mampulationon 1 

140 

06/3S 

Floppy 

Duoetory-MaiupuUtioncn 1! 

163 

10/05 

Grafik 

Huefl 3-15 nouo Basic Bofohle. Tbil 2 

136 

03/05 


Huob 3 - Grafikkure-An Wendung. Tbil 3 (Schluß) 

152 

08/85 


Sprites ohno Cohoimniaro 

40 

08/05 


Streifcuge duich die Craflkwolt. Ted 1 

IC« 

09/65 


StrcifaUgo durch die Craflkwolt. Tbil 2 

149 

11/65 

Logcloion 

Logoloien. Tod 1 

143 

07/65 


Logclemn Toü 2 

138 

08/85 


Logoloien TbU 3 (Schluß) 

115 

09/65 

Mucik 

Dom Klang auf der Spur Teil 2 

136 

01/03 


Dom Klang auf dor Spur. Tbil 4 

131 

04/09 


Dem Klang auf der Spur. Ted 5 

152 

05/65 


Dem Klang auf der Spur. TbU 7 

132 

07/09 


Dem Klang auf der Spur Tbil 8 

133 

08/6S 


Dom Klang auf dor Spur. Tod 9 

126 

10/65 


Dom Klang auf der Spur. TbU 10 (Schluß! 

187 

11/05 

Spoicho: 

Memory Mop mit WandorvorechUgon. TbU 3 

126 

01/85 



144 

03/85 


Memory Map mit WandorvorechUgon, Tbil 7 

130 

06/86 


Momory Map mH WandorvorechUgon TbU 0 

140 

07/05 


Memory Map mit WandorvorechUgon. Tbl) 9 

139 

08/85 


Momory Map mit WandervorachUgen TbU 10 

112 

00/85 



133 

10/85 


Momcry Map nut WandoivcrachUigon. Tbil 12 

145 

11/05 


Momory Mop mit Wandoivorachlugon. Tbil 13 

146 

12/85 

liprachon 

Basic ist out - eo lobe fbrth 

43 

01/85 

VC 20 

Der glasorno VC 20 TbU 4 

130 

01/85 


Dor glaootno VC 20. TbU 6 (Schluß) 

158 

03/85 


Software-Tips 


C 128 

Eiste Fragon und Antworten cum C 126 

14 

00/85 


Fragen und Antworten xum 128or 

20 

10/05 



40 

I2/B5 

Drecket 

Dor MPS 602 loroi Doutsch 

30 

06/86 


Contromcs-lnterfaco für )odon Bedarf 

70 

07/85 

Tbxtvorarboi- 


174 

13/85 

tung 

richtig otngesetit (Visawrtto-Tips) 



Tips 4 Tricks 

Auloboct beim C 64 

66 

03/05 



03/85 


Undefinierte Opcodes doB 6503 

1)4 

03/05 


Durch POKEs xum Eifolg (Spiolo-POKEo) 

83 

03/95 


Tips und Erweiterungen su Hi-Eddi und SimonB Basic 

OS 

03/85 


Booic ßofohlo im Griff 

79 

05/85 


Durch POKEo xum Erfolg Spiele-POKEs 

78 

06/85 


Formaucrto Eingabe 

I4B 

06/85 


»•Text (Tbxl in Htrcs) 

70 

06/65 


Verbotene Variablen 

66 

00/65 



86 

11/85 


(•Fohlortoufol 12/85) 




Dor Trick mit dem Joystick (Joysticknbfrage) 

24 

11/85 


Verschiedene Tip« für Anfänger und Foitge- 

106 

12/85 


Bctmttcno 


Software-Grundlagen 

Assembler Assembler*’ Assembler! (Einführung) 

AssomKor-Bodlcnung lolcht gomacht. Tbil 1 
DH) Der erste Kontakt mit DFÖ 

Die Netze der Post Bö, Datox-P. Tblcbo* 
DFO - Was iss do*? 

Moilbox für Anftngor 


33 01/65 

169 12/83 

40 06/85 

46 06/85 

44 06/65 

30 07/85 


U-.-or 

04«r-orv 






























Stichwort TUel 


Salto Ausgabe 


Dio wichtigsten BegnfTe der Dot 


D.itetvcrwaltung lat nicht gloich Datonbank 
Datcivorwaltung: WasSi« boim Kaufbeachten sollten 
Drucker Hardcopy leicht gemacht (»m programmiert man 

Hardcopies) 

EPROM Wio sage ich es meinem EPROM7 (EPROM- 

Grundlagon) 

Funktionen Funktionen für Anfänger 

Lomon Besser lernen mit dom Computer 

Munk Klangprogrammicrung ohne Ballast 

Spiele Taktik- und 5tratogicsptolc 

Play by Mail und Play by Modem 
Dprachon Sprachon für Computer. Teil 2 

Tbxtvenubei- Vbn der Schreibmaschine rum Tertsystem 
tung 


153 

46 


Listings zum Abtippen 


Spiolohilfe 

Sprachen 

Textveimbei- 

tung 

Tips & Tricks 
Tipo&Tncka 


Scolmog per Telefon (Schiffe versenken per Modem) 82 
Die ScroU-Maschmo — D Fenster cur Sptclewolt 52 

(LdM) (»Fehlen. 11/85) 

Tltty Förth Compiler (LdM) (. Fehlen. 9/65) 51 

Hypra-Text (LdM) (* Fehlerteufel 11/85) 50 

Drucksacho - Hypra-Tbxt. Teil 2 71 

Große Buchstaben 89 

Ressore ftir Unterprogramme 90 

i Maschinensprachoprogramme 88 


CuHorsteuenmg leicht gemacht 
22 Read Emu — Theorie und Praxis 41 

Floppy-Lister (*■ Fohleneufel 4/85) 82 

Longncreen beim VC 20 B3 

C Ifl: Help und Traco verbessert B4 

Ordnung ist das halbe Leben (Directory-Sonor) 77 

Doku me ntatio nshilfe. Cnm-Heferenx-Listo C 64 155 

(Wettbewerb) 

Prost mit dem C 64: Goriteateuening Uber 76 

Userpon (* Fohleneufel 9/65) 

Fenster-Bofehlo für don C 16 B4 

Elektronlache Merkacttel fl3 

Füe-Compactor 82 

REM-Killer (. Fohleneufel 9/B5) 75 

Baaic-Süut-Cenerator 74 

Komfonable Ein-/Auagaberoutino 77 

Bildaclurmmaaken leicht enteilt 66 

Der Bitmap-Compandar (HlRos-Bilder komprimioron) 81 


Transfer 

Unten 

programmo 


Hypra-Save 
'Procodure 1 - oder der C 64 kann leinen 
Aufgowicknlt - LlsungscroUing für VC 20 
Programmgonerator für den C 64 
Croos-Ref opümion 
Spielotralner. 5prlteklU 
Tipp-Utilny 

Doi EPROM Automat (wie man Modulo macht) 
80-Zelchen-Craßk für don C 128 
Hyper Scroon (Sporns auf dom Büdnehumrand) 
Der C 64 als PET: PETSimulator 
Formatione Eingabe 


Software-Tests 


OS/BS 

05/85 

06/65 

09/85 

07/85 

05/05 

10/B5 

09/B5 

03/85 

09/B5 

05/85 

03/85 


Anwendung 

Dor C 64 oh Handballtramor (AdM) 

53 

01/85 


Ugoub - ohne Oiyantiation kein 1br(LdM) 

50 

03/85 


(AdM) 

Woißt du, wieviel Siernloin atehon (Stemkario) 
(AdM) (* Fohlen 6/88) 

53 

06/85 



82 

07/85 


Notjwoikanalyso Ein Piogramm für Hobby- 
eluktinmknr (AdM) 

52 

08/85 


Ptufungifragon (AdM) 

62 

09/83 


Fit in Latein mit dnm C 64 (AdM) 

52 

10/83 


Lynk-Manchino (AdM) 

62 

11/85 


Hypra-Platon (LdM) 

50 

11/88 


Dot Chomio-Assistent (AdM) 

52 

12/85 


SMON Toll \ Ohne gutos Werks, gehl es nicht 

69 

01/05 


Hypia-Aas (LdM) 

31 

07/85 


Neuoo Mm SMON (■» Fehleitoulol 11/85) 

67 

10/65 


Reassembler su Hypra-Ase( • FchJorloufel I2/B5) 

97 

11/85 



11/85 


TIP* & Tricks xum SMON (inklumv* Diskmonitor) 

100 

12/05 

Bildschirm- 

AunosuiQ Wettbewerb Büdschumnoite 

158 

09/B5 

neue 

Drei Tbp- Programmo 



dfO 

Terminal Programm dor SpttienkJasso 
(+Fohle rloufel 10/68) 

149 

07/65 

Dxtoi 


50 

13/85 

Drucket 

Hi-EddiDruckeiroutinen 

09 

06/85 


C 64 Schielbeilmg - Druckon wio gomalt 

54 

10/85 


Koolabüdoi Farbhardcopy auf Epson JX-H0 

39 

11/85 

Emroilcr 

Dio nächsten 14 aus d. Einreiinrwotibcwvrb 

157 

01/85 

Floppy 

Hypra Load mal 4 (. Fohleiioufol 3/85) 

82 

01/85 


Diskottenmonitor 

83 

06/88 


Dink-Dosignor 

70 

09/85 


Contra tuco) 


IHM 

Grafik 

Vior Pnoudo-VICu mit 32 Sprites 

76 

01/85 


Hi-Eddi* Zotchon- und Malpioggramm (LdM) 

50 

01/85 


EJoktrotcchp.tschor, Zoichnen mit dem VC 30 

71 

03/85 


Mmi-Graflk VC 30, Crafikhüfe 

69 

05/85 


Tnckfilm mit dom C 64: Bewegte 3D Crafik (LdM) 

51 

05/85 


( +Fohleiioufol 8/85) 

Kurvenplotron mit Hardcopy auf dom C 16 

68 

06/85 


Doppelte Graftkauf.Osur.g für C 138 

33 

ll/BS 


Btldei auo emei anderen Dimension (Apfolmännchen) B0 

11/85 

Intelligenr 

V1C — das inteüigonie Programm 

173 

05/6S 

Musik 

Sound Machines Fehortcufel 10/65) 

23 

09/8S 


Sound Master (Basic-Erweitcrur.g) 

31 

09/85 

Spiclo 

6510 — Die Sucho nach der Professor 

70 

05/85 


Samurai (Strategiesptol) 

72 

06/B5 


Schach demC64:Schachprogramm sum Abtippen 

72 

08/85 


Spielen aufxwet Bildschirmen: 

Zeichens: Cscrolling (LdM) 

51 

09/85 


Pac-Man unter der Lupe 

76 

10/85 


Block Out 

84 

11/85 


12/85 

06/85 

06/85 
10/85 
11/85 
01/85 
01/85 
01/85 
02/BS 
03/BS 
03/85 
05/66 
OS/BS 
05/05 
0G/H5 

06/65 

07/85 

07/85 

07/85 

07/85 

07/85 

07/BS 

08/05 

06/85 

06/85 

08/85 

09/B5 

10/B5 

10/85 

11/85 

12/85 

12/85 

U/B5 

12/88 

01/88 

01/88 


Assembler 

Assembler im TVint ToU 1 

34 

01/65 

Basic- 

CBasic - Allen drin 

28 

01/BS 

Erweiterung 





Maci» Basic: Die Unleipnxuamm Bibliothek 

137 

06/05 


Darf es etwas mehr selnV - Tönt Buuinena-BaMc 

120 

08/H0 


Dat Intollectool 

138 

09/65 


Formel 84: Das Multtuient 

158 

12/05 

DFU 

Terminal programmo- Übersicht 

42 

06/05 

Datei 

Veigloichstesl - 7 Dmeivcrwaltungon auf omon Blick 110 

07/BQ 


Aufgeräumt mit Mamftlo 11 

IS7 

10/85 

Grafik 

Malen auf dom Bildschirm (Malptogrammo) 

34 

08/05 



38 

08/BS 


Voigletchstost: Graük-Erweitorungon 

37 

09/05 

Lernen 

Softloamtng - dio woicho Welle des Loraona 

40 

01/85 


Vokabeltintning mit dem Computor 

39 

03/85 


MarkiUbcnucht Lernsoftware 

166 

10/85 

Musik 

Musi» IUI den C M Obrachl MuataolTOuo 

26 

09/85 


The Music Sysinm - Zwoi auf einen Schlag 

164 

12/83 

Sprachon 

Logo - die Sprache für Ernste tger 

135 

05/85 


Der Ada Ttalntngakuni auf dem C 64 

129 

05/85 


Promal - die neue Sprache für Profis’ 

124 

07/85 


Forth-wüm mit M&T Förth 64 

126 

07/85 


Was leistet Pilot’ 

121 

08/85 


Pascal für Proflo (Profi-Pascal) 

122 

08/85 


Supor-Forth 64 

144 

09/E5 


C — die professionelle Programmiersprache für 

140 

09/55 


don C 64 




Basic 7.0 - Das Supertune dos C 128 

18 

10/88 


Co mal 80 — die universelle Programmiersprache 

151 

10/85 


Turbo-Pnscal auf dom C 138 

30 

11/05 



Homeword - Tcxmuarboitung au Hause 

36 

03/85 

Tot 1 -Text - Flexibilität ie Trumpf 

38 

03/85 

Piotex: - Toxtproti mit 00 Zeichen 

133 

05/65 

Ttextomat Plus kontra Vtrawrite 

132 

06/85 

Der Ptetshammer (“fest StorToxter) 

135 

00/85 

Paporclip — ausdrücklich gut 

44 

11/85 


So machen's andere 

Semmeln Semmolaervice mit dom C 64 

Spon Commodoro Sportservice- Heimcomputor xur 

Tumiornuu Wertung 

Hilfe Computer fUr Behinderte 


147 06/68 

157 07/BS 

162 12/85 


Die Ausgaben 
2/85 und 4/85 
sind bereits vergriffen 
und nicht mehr lieferbar! 


Am besten gleich 
mitbestellen: 

Die praktischen 
64 'er-Sammelboxen 



Sammelboxen! 

Am besten gleich 
mitbestellen! 

Für alle Leser, die »64’er« regel¬ 
mäßig kaufen, sammeln oder im 
Abonnement beziehen, gibt es 
jetzt ein interessantes Ser¬ 
vice-Angebot: die 64’er-Sam- 
melbox! 

Mit dieser Sammelbox bringen 
Sie nicht nur Ordnung in Ihre 
wertvollen Hefte, sondern schaf¬ 
fen sich gleichzeitig ein interes¬ 
santes und attraktives Nach¬ 
schlagewerk. 

Übrigens: Die Sammelbox ist 
nicht nur ein praktisches Aufbe¬ 
wahrungsmittel: Sie eignet sich 
auch hervorragend als Ge¬ 
schenk für Freunde und Be¬ 
kannte zu vielen Anlässen. 


Auch die bisher 
erschienenen Sonderhefte 
können Sie 
jetzt direkt bestellen: 


SOHDfRHEFT 01/M: HK X TRICKS 

Unentbehrliche Anwendungslistings für C 64 und 


SONDERHEFT 02/85: ABENTEUERSPIELE 1 

Fesselnde Adventures mit zahlreichen Lösungen und 
einem Programmierkurs. 

SONDERHEFT 03/85: SPIELE 

Heiße Listings für Spiele-Fans und eine große 
Marktübersicht. 

SONDERHEFT 04/15: «RUHR 8 DRUCKER 

Von der 3D-DarsteUung bis zur Hardcopy-Routine. 

SONDERHEFT 05/85: FIOFFT/DATA SETTE 

Soll-Idols zum komlortablen und noch schnelleren 
Betrieb von Floppy und Detasette. 

SONDERHEFT 08/85: AUSCEttfNLTE SUKR-USTIN6S 

Tbp-Themen aus 64'er bringt eine Auswahl der besten 
64’er Programme. 

SONDERHEFT 07/85: ANWINDUMEH/DFO 

Leistungsfähige Programme für professionelle 
Anwendungen und Datenfernübertragung. 

SONDERHEFT 08/85: ASSEMBLER 

Assembler-Know-how für Anfänger und Fort¬ 
geschrittene. 

SONDERHEFT Ol/Si: K 128 

Komplette Beschreibungen von C 128 und C 128D 
und passendem Zubehör. Die Unterschiede zum C 64. 

SONDERHEFT 02/84: HK 8 TRICKS 

Super-Listings. ausführliche Grundlagen und die 
besten Tips&Tricks und Einzeileraus 64'er. _ 

SONDERHEFT 03/8i: C16, C116, VC20 UND PLUS 4 

Umfassende Grundlagen und aktuelle Informationen 
zu C16, C116, VC20 und Plus 4. _ 

SONDERHEFT 04/86: ABENTEUERSPIELE 2 

Auf 160 Seiten alles über das Programmieren ron 
Abenteuerspielen und Super-Listings zum Ablippen. 

SONDERHEFT 05/16: C64-6RUNDWISSEN 

Für alle Einsteiger umfassende Grundlagen und Hilfe¬ 
stellungen rund um den C64. 

SONDERHEFT 06/86: GRAFIK 

Gmfikprogrammierung des C64, C128 und C128 im 
C64-Modus. Dreidimensional konstruieren mit 
»Giga-CAD*. 

SONDERHEFT 07/86: FEEKs UND P0KE> 

Emführungskurs in die wichtigsten Speicherstellen für 
C64, C16 und C128. Über 30 Seiten Tips&Tricks. 

SONDERHEFT 08: PUIS/4 UND C16 

Ausführliche Kurse für schnelle Programme auf C16 und 
Plus/4 in Maschinensprache und Basic mit Grafik¬ 
befehlen. 

SONDERHEFT 09: FLOPPT 8 DATEIVERWALTUNG 

Die effiziente Datenverwaltung für Einsteiger und Profis. 

SONDERHEFT 10: C12SII 

Entscheidendes Know-how für Anfänger und Fortge¬ 
schrittene auf Ihrem Weg zum ProfL 

SONDERHEFT 11: 

Grafit, Musik, Anwendung, faszinierende Gestaltungs¬ 
möglichkeiten mit Grafik- und Musikprogrammen. 

SONDERHEFT 12: 

Assembler, Programmiersprachen. Erfahren Sie alles 
über Programmiersprachen und ihm Anwendungs¬ 
bereiche 


SONDERHEFT 13: HARDWARE 

Neue Möglichkeiten Für Ihmn Computer durch nütz¬ 
liche Hardware-Erweiterungen 


SONDERHEFT 14: C16, CI1A, Plu:/4 

Super 3D-Grafik-System zum Abtippen 

SONDERHEFT 15: TIPS UND TRICKS UND FLOPPY 

Alles über Laufwerke und Datasetten. 

Neue interessante Grundlagen, 

SONDERHEFT 16: C64-EINSTEIGER 

Ausführliche Grundlagenartikel, komfortable 
Anwenderprogramme. 


_:_ 

Tragen Sie die Nummer des gewünschten 
Sonderheftes (z.B. 08/85) auf dem Bestellab¬ 
schnitt der hier eingehefteten Bestell-Zahlkar- 
te ein. 
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de 

c9 

of 

dO 

cb 

3881 

9d 

c8 

06 

ca 

dO 

f 4 

18 

bd 

ee 

39ol 

3d 

8 d 

a9 

02 

a9 

14 

8 d 

a8 

52 

3b41 : 

f 9 

60 

80 

09 

fO 

14 

09 

16 

2 f 

3889 

39 

03 

dd 

c9 

06 

fO 

13 

90 

4a 

39e9 

02 

a5 

02 

48 

20 

60 

2 f 

68 

4a 

3b49 : 

bc 

11 

3c 

18 

d3 

14 

la 

19 

18 

3891 

05 

a2 

05 

4c 

26 

43 

bd 

c9 

b9 

39f 1 

c5 

02 

fO 

06 

a5 

02 

48 

4c 

d8 

3b51 : 

93 

lo 

aO 

la 

5a 

Ob 

dd 

Oo 

of 

3899 

06 

9d 

39 

03 

08 

00 

05 

dO 

68 

39f 9 

68 

44 

ad 

15 

dO 

09 

80 

8 d 

04 

3b59 : 

dO 

17 

cO 

19 

cf 

00 

Oc 

cc 

cf 

38al 

f 5 

ca 

08 

©0 

05 

dO 

df 

bd 

23 

3a01 

15 

dO 

a9 

80 

8 d 

aa 

02 

a9 

82 

3b61 : 

Oc 

60 

lc 

90 

4e 

4f 

57 

20 

b3 

38a9 

38 

03 

9d 

18 

07 

ca 

dO 

f 7 

c7 

3a09 

00 

8 d 

ab 

02 

8 d 

b3 

02 

8 d 

95 

3b69 : 

45 

4e 

54 

45 

52 

20 

4c 

45 

75 

38bl 

a9 

lb 

78 

8 d 

11 

dO 

a9 

15 

20 

3all 

fc 

02 

a9 

3d 

a2 

3b 

8 d 

ae 

b8 

3b71 : 

56 

45 

4c 

05 

20 

20 

59 

4f 

25 

38b9 

8 d 

18 

dO 

ad 

01 

de 

48 

29 

a7 

3al9 

02 

80 

af 

02 

78 

a9 

51 

8 d 

c4 

3b79 : 

55 

20 

4d 

41 

44 

45 

20 

49 

db 

38ol 

10 

fO 

25 

68 

c9 

ff 

fO 

f 3 

08 

3a21 

la 

dO 

a9 

b3 

a2 

2 d 

8 d 

14 

76 

3b81 : 

54 

20 

21 

02 

85 

bl 

ad 

d8 

bc 

38o9 

ad 

d9 

06 

c9 

35 

fO 

Oo 

ee 

06 

3a29 

03 

8 © 

15 

03 

a9 

1 © 

8 d 

12 

ff 











38dl 

d9 

06 

ee 

fb 

02 

20 

74 

45 

66 

3a31 

dO 

a9 

32 

8 d 

05 

de 

a9 

46 

7f 











38d9 

4c 

3a 

43 

a9 

31 

8 d 

d9 

06 

3b 

3a39 

8 d 

Of 

dO 

a9 

23 

8 d 

O 0 

dO 

30 











38@1 

a9 

00 

8 d 

fb 

02 

4c 

54 

43 

c7 

3a41 

a9 

Od 

8 d 

e9 

02 

8 d 

ff 

07 

ac 

Listing. »Verminator« (Schluß) 
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ACTION-SPIELE 


C64 



Block'n Bubble 


Viel Aktion gibt es. Aber auch Überlegung erfor¬ 
dert dieses lustige Spiel für den C64. Der Clou 
dabei ist: Man kann mit zwei Personen spielen. 

S tellen Sie sich vor, Sie sind ein Angehöriger der Zaube¬ 
rergilde. Allen anderen Zauberern wollten Sie auf der 
großen Jahresversammlung zeigen, was für magische 
Tricks Sie beherrschen. Als Sie Ihre Kräfte spielen ließen, 
unterlief Ihnen allerdings ein kleiner Fehler. Im gesamten 
Versammlungsgebäude mit seinen 20 Räumen, haben 
sich die unliebsamen Resultate Ihres mißglückten Spruchs 
eingenistet. Sie haben die Aufgabe, die gefährlichen, her¬ 
umsausenden Kugeln wieder zu beseitigen. Wenn Sie 
einen guten Freund unter den Zauberern haben, können 
Sie auch mit ihm auf Bubble-Jagd gehen (Bild). Gesteuert 
wird die erste Spielfigur (mit der roten Mütze) durch einen 
Joystick in Control-Port 2. Ein zweiter Spieler muß seinen 
Joystick in Port 1 betreiben. Durch Knopfdruck und 
Drücken des Joysticks in die gewünschte Richtung wird ein 
Schuß abgefeuert. Sollten Sie sich in einer ausweglosen 
Situation befinden, zum Beispiel von verschiebbaren Mau¬ 
erblöcken eingeschlossen oder wenn ein Bubble-Jumper 
unerreichbar ist, so müssen Sie sich gegen eine Wand stel¬ 
len und schießen. Sie vernichten sich dadurch zwar selbst 
und verlieren eines Ihrer wichtigen Leben, können aber im 
gleichen Level nochmals beginnen. 

Das Spiel (Listing) kann mit der Fl-Taste jederzeit ange¬ 
halten und wieder fortgesetzt werden. Mit <RESTORE> 


Bild. Gefahr im Labyrinth der verschiebbaren Blöcke 

wird das gesamte Spiel von neuem gestartet. Ziel des 
Spiels ist es, jeden Level von allen Bubble-Jumpern zu rei¬ 
nigen. Dabei ist natürlich Vorsicht geboten, denn diese klei¬ 
nen flinken Kugeln kosten bei Berührung eines Ihrer drei 
Leben. Sie müssen sich Wege mittels der verschiebbaren 
Wände selbst suchen, können Teleporter-Türen benutzen 
und haben nur eine bestimmte Kraftreserve zur Verfügung. 
Falls es die Punktzahl erlaubt, können Sie sich in eine 
Highscore-Liste eintragen, die auf Diskette gespeichert 
wird. Wundern Sie sich beim ersten Laden des Spiel also 
nicht, wenn vom Programm versucht wird, noch ein File zu 
laden und dies nicht gelingt. Man muß erst einmal gespielt 
haben, damit eine Liste auf Diskette gespeichert vorliegt. 

Alle 20 Level des Spiels sind mit etwas Geduld und Über¬ 
legung zu lösen. (Marcus Wagner/jk) 


Name 

block 

n’bubble 


0801 4932 

0969 

00 

01 

01 

01 

01 

01 

01 

01 

68 

Oael : 

aa 

aa 

be 

ba 

ba 

be 

ba 

ba 

e9 











0971 

01 

Oc 

12 

30 

7c 

30 

62 

fc 

dO 

Oae9 : 



fe 


be 



f e 

98 











aa 

aa 

ae 

ae 

ae 

0801 

1 c 

08 

c 2 

07 

9e 

28 

32 

30 

07 

0979 

00 

40 

40 

40 

40 

40 

40 

40 

39 

Oaf 1 : 

aa 

aa 

be 

ba 

ba 

be 

ba 

ba 

f 9 

0809 

38 

30 

29 

20 

42 

4c 

4f 

43 

f 2 

0981 

40 

fe 

fe 

7c 

38 

38 

10 

10 

35 

Oaf9 : 

aa 

aa 

fe 

ea 

fe 

M 

ae 

fa 

2 b 

0811 

4b 

27 

4e 

27 

42 

55 

42 

42 

c5 

0989 

00 

10 

10 

38 

38 

7c 

fe 

fe 

fe 

ObOl : 

aa 

00 

00 

00 

00 

00 

00 

00 

ac 

0819 

4c 

45 

00 

00 

00 

00 

00 

a 2 

4d 

0991 

00 

00 

00 

00 

00 

00 

00 

00 

92 

0b09 : 

00 

00 

00 

05 

16 

16 

5a 

5a 

da 

0821 

00 

bd 

92 

08 

9d 

00 

eO 

bd 

7e 

0999 

00 

30 

30 

30 

30 

00 

30 

30 

e 8 

Obll : 

5a 

00 

00 

fO 

bc 

ac 

ab 

ab 

cl 

0829 

92 

09 

9d 

00 

el 

bd 

92 

Oa 

12 

09al 

00 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

al 

Ob 19 : 

ab 

6 a 

6 a 

6 a 

la 

lb 

05 

00 

70 

0831 

9d 

00 

e 2 

bd 

92 

Ob 

9d 

00 

37 

09a9 

ff 

66 

66 

ff 

66 

ff 

66 

66 

42 

Ob 21 : 

00 

af 

af 

af 

bc 

fc 

fO 

00 

52 

0839 

e3 

bd 

92 

Oc 

9d 

00 

e4 

bd 

Oa 

09bl 

00 

18 

3e 

60 

3c 

06 

7c 

18 

6 f 

0b29 : 

00 

00 

00 

28 

96 

28 

00 

00 

d9 

0841 

92 

Od 

9d 

00 

e5 

bd 

92 

Od 

72 

09b9 

00 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

b9 

0b31 : 

00 

3f 

df 

fd 

f 7 

ff 

ff 

77 

f 7 

0849 

9d 

00 

e 8 

bd 

92 

Oe 

9d 

00 

e 8 

09cl 

ff 

3c 

66 

3c 

38 

67 

66 

3f 

d 6 

0b39 : 

df 

70 

7c 

f 4 

7c 

7c 

de 

fc 

27 

0851 

e9 

bd 

92 

Of 

9d 

00 

ea 

bd 

aO 

09c9 

00 

Oc 

18 

30 

00 

00 

00 

00 

de 

0b41 : 

fc 

f 7 

ff 

ff 

7d 

d7 

fd 

3f 

46 

0859 

92 

10 

9d 

00 

eb 

bd 

92 

11 

74 

09dl 

00 

lc 

30 

30 

60 

30 

30 

lc 

72 

Ob49 : 

00 

f 4 

fc 

7c 

f o 

f 4 

fc 

fO 

df 

0861 

9d 

00 

ec 

e 8 

dO 

bb 

a9 

32 

4c 

09d9 

00 

38 

Oc 

Oc 

06 

Oc 

Oc 

38 

db 

0b51 : 

00 

2 a 

9a 

a9 

a 6 

aa 

aa 

66 

79 

0869 

85 

40 

a9 

12 

85 

41 

a9 

00 

c4 

09el 

00 

00 

66 

3c 

ff 

3c 

66 

00 

7e 

0b59 : 

9a 

60 

68 

a4 

68 

68 

98 

a 8 

4f 

0871 

85 

42 

a9 

80 

85 

43 

aO 

00 

87 

09e9 

00 

00 

18 

18 

7e 

18 

18 

00 

fc 

0b61 : 

a 8 

a 6 

aa 

aa 

69 

96 

a9 

2 a 

a 2 

0879 

bl 

40 

91 

42 

e 6 

40 

dO 

02 

af 

09f 1 

00 

00 

00 

00 

00 

00 

30 

30 

13 

0b69 : 

00 

a4 

a 8 

68 

a 8 

a4 

a 8 

aO 

86 

0881 

e 6 

41 

e 6 

42 

dO 

f 2 

e 6 

43 

dO 

09f 9 

60 

00 

00 

00 

fe 

00 

00 

00 

49 

0b71 : 

00 

00 

00 

00 

01 

01 

01 

06 

9a 

0889 

a5 

43 

c9 

b7 

dO 

ea 

4c 

fO 

bl 

OaOl 

00 

00 

00 

00 

00 

00 

30 

30 

23 

0b79 : 

06 

00 

00 

00 

cO 

cO 

cO 

bO 

f 6 

0891 

48 

7e 

c3 

bd 

bl 

bd 

c3 

7e 

d 6 

0a09 

00 

03 

06 

Oc 

18 

30 

60 

cO 

94 

0b81 : 

bO 

06 

la 

la 

la 

6 a 

6 a 

6 a 

72 

0899 

00 

7c 

c 6 

c 6 

fe 

c 6 

c 6 

c 6 

30 

Oal 1 

00 

7c 

c 6 

ce 

e 6 

c 6 

c 6 

7c 

93 

0b89 : 

7f 

bO 

ac 

ac 

ac 

ab 

ab 

ab 

4f 

08al 

00 

fc 

c 6 

c 6 

fc 

c 6 

c 6 

fc 

c5 

Oal 9 

00 

18 

38 

78 

18 

18 

18 

18 

15 

0b91 : 

ff 

00 

00 

00 

00 

00 

00 

00 

91 

08a9 

00 

7c 

c 6 

cO 

cO 

cO 

c 6 

7o 

d7 

Oa 21 

00 

7c 

c 6 

06 

18 

70 

cO 

f e 

dB 

0b99 : 

00 

00 

00 

00 

00 

00 

00 

00 

9a 

08bl 

00 

f 8 

cc 

c 6 

c 6 

c 6 

cc 

f 8 

01 

Oa29 

00 

7c 

c 6 

06 

lc 

06 

c 6 

7c 

eO 

Obal : 

00 

00 

00 

00 

00 

00 

00 

00 

a 2 

08b9 

00 

fe 

cO 

cO 

f 8 

cO 

cO 

fe 

17 

0a31 

00 

cO 

cc 

CC 

cc 

fe 

Oc 

Oc 

6 b 

0ba9 : 

00 

00 

00 

00 

00 

00 

00 

00 

aa 

08cl 

00 

fe 

c 0 

cO 

f 8 

cO 

cO 

cO 

a3 

0a39 

00 

fe 

cO 

fc 

06 

06 

c 6 

7c 

2 d 

Obbl : 

00 

00 

00 

00 

00 

00 

00 

00 

b 2 

08c9 

00 

7c 

c 6 

cO 

ce 

c 6 

c 6 

7c 

08 

0a41 

00 

7c 

c 6 

cO 

f C 

c 6 

c 6 

7c 

63 

0bb9 : 

00 

00 

00 

00 

00 

00 

00 

00 

ba 

08dl 

00 

c 6 

c 6 

c 6 

fe 

c 6 

c 6 

c 6 

8 d 

Oa49 

00 

fe 

c 6 

Oc 

18 

18 

18 

18 

ce 

Obel : 

00 

00 

28 

aa 

66 

66 

aa 

28 

b5 

08d9 

00 

7e 

18 

18 

18 

18 

18 

7e 

cl 

0a51 

00 

7c 

c 6 

c 6 

7c 

c 6 

c 6 

7c 

2 c 

0bc9 : 

00 

00 

28 

aa 

99 

99 

aa 

28 

8 a 

08el 

00 

3e 

0 c 

Oc 

Oc 

Oc 

CC 

78 

ca 

Oa59 

00 

7c 

c 6 

c 6 

7e 

06 

c 6 

7c 

4e 

Obdl : 

00 

00 

18 

6 a 

6 a 

ab 

ab 

2 c 

30 

08e9 

00 

c 6 

CC 

d 8 

fO 

d 8 

cc 

c 6 

31 

0a61 

00 

00 

00 

30 

00 

00 

30 

00 

28 

Obd9 : 

00 

00 

18 

6 a 

6 a 

ab 

ab 

2 c 

38 

08f 1 

00 

c 0 

cO 

cO 

cO 

cO 

cO 

fe 

ac 

0a69 

00 

00 

00 

30 

00 

00 

30 

30 

91 

Obel : 

00 

41 

3c 

28 

eb 

eb 

28 

3c 

cd 

08f 9 

00 

c 6 

ee 

fe 

d 6 

c 6 

06 

c 6 

44 

0a71 

60 

03 

Of 

3f 

ff 

3f 

Of 

03 

3b 

0be9 : 

41 

00 

14 

28 

eb 

eb 

28 

18 

23 

0901 

00 

e 6 

f 6 

de 

ce 

c 6 

c 6 

c 6 

d9 

0a79 

00 

00 

00 

7e 

00 

7e 

00 

00 

3d 

Obf 1 : 

00 

Of 

30 

30 

cO 

cO 

cO 

cO 

22 

0909 

00 

7c 

c 6 

c 6 

c 6 

c 6 

c 6 

7c 

88 

0a81 

00 

cO 

fO 

fc 

ff 

fc 

fO 

cO 

ea 

Obf9 : 

cO 

fO 

Oc 

Oc 

03 

03 

03 

03 

10 

0911 

00 

fc 

c 6 

c 6 

f c 

cO 

cO 

cO 

74 

Oa89 

00 

7c 

c 6 

06 

Oc 

18 

00 

18 

eb 

OcOl : 

03 

cO 

cO 

cO 

cO 

cO 

cO 

ff 

cl 

0919 

00 

7c 

c 6 

c 6 

c 6 

c 6 

7c 

Oe 

92 

Oa91 

00 

d7 

d7 

3c 

00 

00 

3c 

d7 

9b 

0c09 : 

00 

03 

03 

03 

03 

03 

03 

ff 

00 

0921 

00 

f c 

c 6 

c 6 

CC 

f 8 

cc 

c 6 

7f 

0a99 

d7 

d7 

d7 

d7 

d7 

d7 

d7 

d7 

98 

Ocll : 

00 

55 

00 

00 

00 

00 

00 

00 

bc 

0929 

00 

7c 

c 6 

cO 

7c 

06 

c 6 

7c 

3d 

Oaal 

d7 

cO 

73 

73 

73 

73 

73 

73 

ab 

Ocl9 : 

55 

55 

ff 

ff 

ff 

ff 

ff 

ff 

19 

0931 

00 

fe 

18 

18 

18 

18 

18 

18 

8 c 

0aa9 

cO 

ff 

55 

55 

55 

55 

55 

65 

69 

0 c 21 : 

55 

55 

fc 

fc 

fc 

fc 

f C 

fc 

a5 

0939 

00 

c 6 

c 6 

c 6 

c 6 

c 6 

c 6 

7c 

dd 

Oabl 

ff 

f c 

5c 

57 

57 

57 

57 

57 

6 d 

0c29 : 

55 

55 

fO 

fO 

fO 

fO 

fO 

fO 

bf 

0941 

00 

c 6 

c 6 

c 6 

c 6 

c 6 

6 c 

38 

f 3 

Oab9 

d7 

d7 

57 

57 

57 

57 

57 

5c 

83 

0c31 : 

55 

55 

cO 

cO 

cO 

cO 

cO 

cO 

10 

0949 

00 

c 6 

c 6 

c 6 

d 6 

fe 

ee 

c 6 

e5 

Oacl 

fc 

d7 

d5 

d 6 

d5 

d5 

d5 

d5 

e 8 











0951 

0959 

00 

00 

c 6 

c 6 

c 6 

c 6 

6 c 

c 6 

38 

6 c 

6 c 

38 

c 6 

38 

c 6 

38 

83 

21 

0ac9 

Oadl 

3f 

d7 

3f 

aa 

35 

be 

d5 

ba 

d5 

ba 

d5 

be 

d5 

ba 

d5 

ba 

bf 

06 

Listing. »Block’n Bubble«. 



0961 

00 

fe 

Oc 

18 

30 

60 

cO 

fe 

ed 

Oad9 

aa 

aa 

ba 

ba 

ba 

ba 

ba 

ba 

cO 
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C64 


ACTION-SPIELE 


0c39 : 

55 

6a 

6a 

6a 

6a 

6a 

6a 

6a 

24 

Of 49 

00 

3c 

3c 

3c 

3c 

3c 

3c 

00 

95 

1259 

00 

20 

20 

20 

20 

20 

20 

20 

39 

0c41 : 

6a 

a9 

a9 

a9 

a9 

a9 

a9 

a9 

01 

Of 51 

00 

fO 

fO 

00 

fc 

ff 

ff 

f 3 

bd 

1261 

20 

20 

20 

20 

20 

20 

20 

20 

61 

0c49 : 

a9 

00 

00 

00 

00 

00 

00 

00 

f 3 

Of 59 

f 3 

3c 

3c 

3c 

3a 

3c 

3c 

fc 

92 

1269 

20 

20 

20 

20 

20 

20 

20 

bc 

a2 

0c51 : 

00 

Of 

3a 

3a 

ea 

d5 

da 

ea 

4d 

Of 61 

fc 

fO 

fO 

fO 

fO 

fO 

fO 

00 

8a 

1271 

bd 

9d 

9d 

11 

be 

bf 

91 

00 

b6 

0c59 : 

ea 

fO 

ac 

ac 

ab 

6b 

ab 

ab 

98 

Of 69 

00 

fa 

fa 

3c 

3c 

3c 

3c 

00 

45 

1279 

d4 

d5 

9d 

9d 

11 

d6 

d7 

91 

9d 

0c61 : 

5b 

ea 

ea 

ea 

da 

d5 

ea 

ff 

51 

Of 71 

00 

7 f 

ff 

00 

fO 

fO 

fO 

fO 

6d 

1281 

00 

d8 

d9 

9d 

9d 

11 

da 

db 

9d 

0c69 : 

00 

6b 

ab 

ab 

ab 

6b 

ab 

ff 

44 

Of 79 

fO 

f 8 

fo 

3c 

3c 

3c 

3c 

3c 

bb 

1289 

91 

00 

de 

dd 

9d 

9d 

11 

ff 

18 

0c71 : 

00 

al 

al 

al 

al 

al 

al 

51 

2f 

Of 81 

3c 

fO 

fO 

fO 

fO 

ff 

7f 

00 

9c 

1291 

df 

91 

00 

12 

40 

41 

9d 

9d 

3b 

0o79 : 

00 

aa 

aa 

aa 

aa 

aa 

aa 

55 

24 

Of 89 

00 

3c 

3c 

3c 

3c 

fa 

f 8 

00 

ce 

1299 

11 

42 

43 

91 

92 

00 

cf 

dO 

d8 
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ACTION-SPIELE 


Playball: ein 
Breakout für Könner 


»Playball« ist ein Geschicklichkeitsspiel, das dem 
bekannten »Breakout« recht ähnlich ist. Auch hier 
geht es um das Abräumen einer Mauer. Doch ge¬ 
staltet sich dies bei Playball durch einige Beson¬ 
derheiten schwieriger als beim Originalspiel. 

B ei dem Programm »Playball« handelt es sich um ein in 
Maschinensprache geschriebenes Ballspiel, bei dem 
eine immer näher kommende Mauer abzuräumen ist 
(Bild). Geben Sie Playball (Listing) mit dem MSE ein und 
speichern Sie es. Nach dem Laden und Starten mit RUN 
haben Sie die Möglichkeit, mit Ton <F1> oder ohne 
Ton <F3> zu spielen. 

Nach dem Betätigen einer der beiden Funktionstasten 
wird auf dem Bildschirm eine Mauer aufgebaut. Diese 
Mauer soll nun mit einem Joystick (Port 2) und viel 
Geschick zerstört werden. Hierfür stehen Ihnen ein Schlä¬ 
ger und insgesamt 9 Bälle zur Verfügung. 

Um die Schwierigkeit zu steigern, wird die Mauer nach 
jedem neuen Ball und nach jedem fünften Aufprall auf den 
Schläger um zwei Steine nach unten geschoben. Eine 
zweite Steigerung der Schwierigkeit ist auch das Berühren 
des oberen Spielrandes, denn dadurch wird die Ballge¬ 
schwindigkeit erhöht. 

Für jeden zerstörten Stein bekommen Sie einen Punkt, 
der jedoch wieder abgezogen wird, wenn durch das Herun¬ 
terwandern der Mauer ein Stein unter der roten Linie weg¬ 
fällt. Sollte dadurch der Punktestand unter Null fallen, oder 



Bild. Reaktionsvermögen und ein gutes Joystick-Gefühl 
sind bei »Playball« gefragt 


wenn Sie den neunten Ball verspielt haben, so ist das Spiel 
beendet. 

Eine Pausenmöglichkeit bietet die SPACE-Taste, denn 
nach Betätigung dieser Taste wird der Ball angehalten. Der 
Schläger kann jedoch nach wie vor bewegt werden. 

Sinn des Spiels ist es natürlich, soviele Punkte wie mög¬ 
lich zu erreichen. Sollten Sie einmal über 2000 Punkte 
haben, können Sie sich schon zur Playball-Elite zählen. 
Viel Spaß! (J. Welsch/og) 


Name « playball 0801 1426 
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C64 


ACTION-SPIELE 


IIFO-Jagd im Labyrinth 


Unbekannte Raumschiffe bedrohen den Frieden 
der Galaxis. Beschützen Sie das All vor den grau¬ 
samen Eroberern, und jagen Sie die Feinde. Hohe 
galaktische Ehrungen winken Ihnen. 

I rgendwo im Universum: Sie als tapferer Sternenkämpfer 
haben den Auftrag, feindliche Raumschiffe zu eliminie¬ 
ren. Da Ihr Raumschiff große Kräfte besitzt, genügt 
schon ein leichtes Berühren des Gegners, diesen aufzulö¬ 
sen. Die Sache wird allerdings dadurch erschwert, daß im 
Raum fliegende Plattformen auftauchen. Einer Kollision 
mit diesen sind Sie aber nicht gewachsen. Winden Sie sich 
also durch den gefährlichen Raumsektor, und versuchen 
Sie, so viele Feinde wie möglich zu zerstören. 

Wenn Sie einen gegnerischen Raumer zerstört haben, 
erreichen Sie einen höheren Level. Es existieren 26 ver¬ 
schiedene Schwierigkeitsstufen (von A bis Z). In jedem 
neuen Level erhöht sich die Geschwindigkeit der fliegen¬ 
den Plattformen. Das Ziel ist es, Level »Z« zu erreichen. 

Das Programm »UFORCE« (Listing 1) geben Sie bitte mit 
dem MSE ein. Der Start des Spiels erfolgt mit SYS 4176. 
Gesteuert wird mit einem Joystick in Port A. 



Retten Sie also das Universum vor den grausamen Fein¬ 
den, die alle Macht im bekannten Sternenraum erringen 
wollen. (Rene de Groot/dm) 
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00 

d4 

33 

loco 

: 

ce 

10 

00 

64 

30 

5c 

60 

7b 

81 

1248 


ad 

00 

de 

29 

Oc 

c9 

04 

dO 

12 

13dO 

: 

ad 

00 

de 

c9 

6f 

dO 

f 9 

a9 

a6 

10 c 8 


90 

9b 

cO 

bb 

fO 

db 

a9 

fc 

5c 

1250 

s 

03 

ee 

00 

dO 

c9 

08 

dO 

03 

Ob 

13d8 

: 

00 

8d 

20 

dO 

8d 

21 

dO 

8d 

01 

lOdO 


8d 

ld 

dO 

a9 

04 

8d 

2 5 

dO 

38 

1258 


ce 

00 

dO 




ad 

02 

78 

1 3e0 

: 

15 

dO 

8d 

le 

dO 

8d 

04 

d4 

b8 
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Bd 
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a2 
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a9 
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2c 
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04 

de 
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8d 
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d4 

4c 
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b7 
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03 

9d 

29 

dO 
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10 

fa 
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Listing 1. »UFORCE« - Retten Sie das Universum (bitte mit dem MSE eingeben) 
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TIPS & TRICKS 


C64 



Das Trainer-System 


Wer wünscht sich nicht eine kleine Hilfe für die 
schwierigen Spiele auf dem C64? Wir präsentie¬ 
ren Ihnen eine unvergängliche Trainer-Version. 

D as Problem dürfte vielen C64-Besitzern bekannt sein: 
Man versucht verzweifelt, bei einem neuen und inter¬ 
essanten Spiel weiter als bis zum zweiten oder dritten 
Level zu kommen, aber es gelingt nicht. Das Spiel ist so 
schnell und hat dermaßen viele feindliche Sprites auf dem 
Bildschirm, daß an ein Durchkommen gar nicht zu denken 
ist. Also bekommt man nie die Chance, auch einmal Grafi¬ 
ken und Szenen aus höheren Leveln des Spiels zu sehen. 
Nach einer Weile landet das Spiel in der Ecke und wird vom 
frustrierten Spieler nicht mehr angefaßt. Für diese Fälle gibt 
es die Spieletrainer. Dies sind Programme, die die nützliche 
Eigenschaft haben, das Spielen zu erleichtern und so ein 
Training auch in höheren Leveln zu ermöglichen. Es gibt 
mehrere Arten, dies zu bewerkstelligen. Einerseits kann 
man versuchen, dem Spieler unendlich viele Chancen an 
die Hand zu geben, mit denen er dann hoffentlich irgend¬ 
wann weiterkommt. Kurz gesagt, man erkauft sich Unsterb¬ 
lichkeit, indem man unendlich viele Leben (sprich Männ¬ 
chen) zur Verfügung hat. Es gibt aber auch noch eine 
andere Methode, bei der an der Anzahl der Männchen oder 
Raumschiffe etc. nichts geändert wird. Statt dessen wird 


eine Kollision mit den fiesen Angreifern unmöglich ge¬ 
macht. Die Spielfigur erlangt damit sozusagen die Unver¬ 
wundbarkeit. Nach dieser letzten Methode funktioniert 
auch unser Trainer-Kernel. Dabei besteht allerdings ein 
wesentlicher Unterschied zu allen bisher auf dem Markt 
erhältlichen Trainern dieser Art. Während die Software- 
Trainer sehr leicht in Konflikt mit dem eigentlichen Spiel 
kommen können und außerdem nur bei einteiligen Versio¬ 
nen der Spiele Verwendung finden, ist unsere Version als 
Hardware gedacht. Dabei werden entsprechende Ände¬ 
rungen am Betriebssystem vorgenommen und diese auf 
Diskette gespeichert. Später muß man sich das gesamte 
System auf ein EPROM brennen und dieses anstelle des 
normalen Kernels in den Computer einsetzen. Man kann 
natürlich auch eine Umschaltplatine verwenden und dann 
je nach Bedarf auf das neue Trainer-Kernel umschalten. 

Um das neue Kernel zu installieren, tippen Sie bitte das 
dazugehörige Listing ab und speichern es auf Diskette 
(Listing). Dieses File können Sie starten, um das Trainer- 
Kernel zu erstellen. Dabei sollten Sie zuerst darauf achten, 
daß Ihr Computer auf das normale Betriebssystem 
geschaltet ist, falls Sie eine Umschaltplatine besitzen. 
Nach dem Start wird das normale Betriebssystem gelesen 
und die erforderlichen Änderungen darin vorgenommen. 
Danach speichert das Programm das neue brennfertige 
Betriebssystem auf Diskette unter dem Namen »TRAINER- 
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KERN«. Dieses File können Sie nun auf ein EPROM vom 
Typ 2764 brennen. Aus Kompatibilitätsgründen wurden die 
Änderungen im Kernel so gering wie möglich gehalten, so 
daß auch Kassetten-Benutzer in den Genuß des ewigen 
Lebens kommen können. Es wurde auf einen Einbau von 
Hilfsroutinen wie DOS 5.1, Hypraload etc. verzichtet. Da nur 
der NMI-Vektor und der Bereich der RS232-Routinen geän¬ 
dert wurden, kann es durchaus sein, daß sich das Trainer- 
Kernel nachträglich in die Betriebssysteme der verschiede¬ 
nen Floppy-Speeder einbrennen läßt. Beim Start des 
Generators muß dann nur das entsprechende Kernel akti¬ 
viert sein. Mit welchen Systemen dies im Einzelfall funktio¬ 
niert, muß durch Ausprobieren herausgefunden werden. 
Wenn das gesamte System erfolgreich gebrannt und ein¬ 


gesetzt wurde, erscheint eine neue Einschaltmeldung. 
Laden und Starten kann man nun jedes Spiel wie gewohnt. 
Der Trainer-Modus läßt sich durch Drücken der CBM- und 
der RESTORE-Taste aktivieren. Der Bildschirmrand blinkt 
kurz auf, bekommt nach zirka zwei Sekunden wieder seine 
normale Farbe, und das Spiel geht an der unterbrochenen 
Stelle weiter. Da die RESTORE-Taste nicht softwaremäßig 
entprellt ist, kann es Vorkommen, daß der Trainer mehrmals 
aktiviert wird. Solange der Stack dabei nicht überläuft, was 
im Normalfall kaum passieren kann, ist dies für die Funk¬ 
tion ohne Belang. 

Wir wünschen Ihnen viel Spaß mit dem völlig neuen 
Spielgefühl und der hoffentlich nur selten vorkommenden 
Meldung »Game Over«. (Oliver Wagner/jk) 


0 REM , TRAINER-KERNAL U86> 

1 REM ---- -.152:' 

2 REM BY OLIVER WAGNER <237> 

3 REM TEL. (02339) 7536 <022> 

4 REM -.-...t- <155> 

[0 POKE 53265,59:P0KE 53272,29:PRINT"CCLR> <192> 

20 FOR F=49152 TO 49179:READ A:POKE F,A:NE 

XT:SYS 49152 <121> 

29 REM ROM KOPIEREN ttttttttfttttttttttt <127> 

30 FOR F=11963 TO 12180:READ A^POKE F,A:NE 

XT <255> 

39 REM HAUPT-TEIL EINLESEN mttttmm <147> 

40 READ AD:IF AD THEN AD=AD-49152:POKE AD, 

76:POKE AD+1,19:POKE AD+2,247= GOTO 40 <044> 

49 REM RS-232 ELIMINIEREN tttttttttttttt <102> 

50 FOR F=9371 TO 9378:READ A:POKE F,A:NEXT <227> 

59 REM 'TRAINER-" EINLESEN ftttttttttttf <217> 

60 TOKE 15940,?6=POKE 15941,187:POKE 15942 

,238 <067> 

69 REM NMI-UMBIEGEN tttttttttttttttttttt <110> 

70 SYS 57812''TRAINER-KERN“ ,8 : POKE 193,. :PO 

KE 194,32 : POKE 174..:POKE 175.64:SYS 62 > Qfl 

957 -036> 

79 REM SAVE-ROUTINE tttttttttttttttttttt <057> 

80 SYS 65371:PRINT"tWHITE.DOWNIDAS WARS AU 

CH SCHON... <117> 

900 DATA 160,0,132,2,132,4,169.32,133,3,16 

9,224.133,5,177,4,145,2,200,208,249 <232> 

901 DATA 230,3,230,5,208,243.96 <215> 

999 REM ROUTINE FUER ROM-KOPIEREN tttttt <064> 

1000 DATA 72,165,1,72,169,54,133,1,169,127 

,141,0,220,173,1,220,41,32,240,7-, 104 <221> 


1001 DATA 133,1,104,108,24,3,138,72.152,72 

,165,2,72,165,3.72,238,32,208,160,0 <003> 

1002 DATA 132,2.132,3.160,2,177,2,201,208, 

240.30.230,2,208,246,230,3,165,3,201 <038> 

1003 DATA 208,144,238,206,32,208,104,133,3 

,104,133,2.104,168,104,170,104,133 <109> 

1004 DATA 1,104,64,136,177,2,201,30,240,7, 

201,31,240,3,200,208.212,136,177.2 <131> 

1005 DATA 162,11,221,63,239,240,7,202,16,2 
48,160,2,208,195,189,75,239,145,2,200 <051> 

1006 DATA 169.0,145,2,200,169,234,145,2,20 

8,172,173,172,174,205,204,236.13,45 <176> 

1007 DATA 77,44,109,237,169,162.160,201,22 

4,192,9,41,73,41,105,233,71,65,77,69 <151> 

1008 DATA 45,84,82,65,73,78.69,82,32,83,89 

,33,84,69,77,32,86,49,46,48,32,45,45 <246> 

1009 DATA 45,32,40,87,41,32,49,57,56,54,32 

,87,69,82,69,87,79,76,70,32,83,79,70 <009> 

1010 DATA 84,87,65,82,69,47,85,46,67,46,65 


.46 <049> 

1099 REM NEUE NMI-BEARBEITUNG tttttmtt <174> 

Itlltou DATA 62473,61517,62060,61880,61960,0 <133> 

1199 REM DATEN FUER RS-232 KILLEN tttttt <191> 

1200 DATA 84,82,65,73,78,69.82,45 <252> 

1299 REM "TRAINER-" IN EINSCHALTMELDUNG 

EINTRÄGEN tttttttttttttttttttt 
t <133> 


@ 64'er 

Listing. Das Basic-Listing erstellt die brennfertige 
Version. Bitte mit dem Checksummer eingeben. 


Das Garfield-Tool 


Dieses kleine Software-Werkzeug ist der Schlüs¬ 
sel für einen hervorragenden Ausdruck der Car¬ 
toons, die mit dem Programm »Create with Gar- 
field« erstellt wurden. 

W er ein echter Garfield-Fan ist, der wird nicht an dem 
kommerziellen Programm »Create with Garfield« 
vorbeikommen. Mit diesem professionellen Pro¬ 
gramm können Sie sich eigene Cartoons mit Garfield, dem 
gefräßigsten Kater der Welt und seinen Freunden Jon Odie 
und Nermal zusammenstellen. Es werden dazu mehrere 
vorgefertigte Hintergrundszenen benutzt. In diese Szenen 
kann man nun nach Belieben die verschiedensten Zeich¬ 
nungen der Figuren einsetzen und mit Sprechblasen ver¬ 
sehen. Das Programm hat eine Menge von Szenen, Figu¬ 
ren und Gegenständen auf Diskette vorrätig, so daß man 
beim Zusammenstellen eines Cartoons seine eigene 
Phantasie noch genügend spielen lassen kann. Das Pro- 

oatjü* 


gramm hat jedoch einen großen Nachteil: Die farbigen Bil¬ 
der werden in Grauabstufungen für den Drucker umge¬ 
rechnet und erst dann ausgedruckt (Bild 1). Dadurch erhält 
man nicht einen normalen Garfield-Cartoon, wie man ihn 
aus den käuflichen Heftchen kennt. Dieses Manko können 
Sie jetzt mit dem Programm Garfield-Tool, welches in zwei 
Programmteilen vorliegt, ausgleichen. Das Basic- 
Programm (Listing 1) lädt nach dem Start ein Maschinen¬ 
programm mit Namen »Stripe-Killer« (Listing 2) von Dis¬ 
kette nach. Sie können dann eine Diskette mit gespeicher¬ 
ten Garfield-Cartoons in Ihr Laufwerk einlegen und brau¬ 
chen nur noch die Nummer des Bildes, welches entfärbt 
werden soll, anzugeben. Das Bild wird geladen, entfärbt 
und liegt dann im Hi-Eddi-Format ab $2000 im Speicher. Es 
kann sofort in diesem Format auf Diskette gespeichert und 
später mit Hi-Eddi ausgedruckt (Bild 2) oder nachbearbei¬ 
tet werden. Es bleibt uns nur noch übrig, Ihnen viel Spaß mit 
diesem praktischen Tool für echte Garfield-Fans zu wün¬ 
schen. (Axel Föhr/jk) 
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100 IF A=0 THEN A=1=L0AD "STRIPE-KXLLER".8 

,1 

105 GOSUB 195 

110 REM-BILDSCHIRM- 

115 PRINT“CCLR,2DOWN,GREY 1}"; 

120 PRINT"LOAD"+CHR$<34)+FI$+CHR$< 34) +" ,8, 
1" 

125 PRINT"C4DOWN}PS53281,6: P3646,1 IFST<>6 
4TÜ RUN 105" 

127 PRINT"C2DOWN}NEW" 

130 PRINT"C2DOWN}SYS(49152>"; 

135 IF PEEK<2024) = 1 THEN PRINT CHR$(34)+NF 
$tCHR$(34)“,8"; 

140 PRINT 

145 PRINT"C2DOWN,WHITE,SPACE)8ENN DAS SILD 
ERSCHEINT BITTE DIE";CHR$<9> 

150 IF PEEK(2024)=0 THEN PRINT"CDOWN.SPACE 
=GOTO 170 

155 PRINT”CDOWN,SPACE>£ISKETTE EINLEGEN, A 
UF DER DAS ’ENT-" 

160 PRINT"CDOWN,SPACEJSTREIFTE’ SILD ABGES 
PEICHERT WERDEN" 

165 PRINT"CDOWN,SPACE3SOLL UND DIE 
170 PRINT “ .UtMXTMXX DRUECKEN." 

175 FOR C=631 TO 634:POKE C.13:NEXT 
180 POKE 198.4:PRINT"CGREY l.HOMEV; 

105 END 

190 REM-TITELBILD- 

195 PRINT" CCLR} " ; : S$= " CYELLOWOcc," 

200 POKE 53280,11:POKE 53281,11 
205 FOR C=1 TO 38:L$=L$+"i" :S$=S$+" “ NEXT 
210 S$-S$+"c^,”:B=16:X=56216:Y=l 
215 PRINT " CYELLOWITTL$ '"sh,CWHITE, 3SPACE}£AS 
£I£Lfi-£OOL £2 BY AXEL £. 1986C3SPACE,Y 
ELLOW}^," i 

220 PRINT "^"L$"W" ;CHR$( 14) ;CHR$C8); 

225 PRINT RIGHTS(S$,41)"CLIG.BLUE,SPACE3ÄI 
ESES PROGRAMM ENTFERNT DIE STREI-C2SPA 
CE}"; 

230 PRINT S$;"CLIG.BLUE,SPACE}FEN (SITKOMB 
INATIONEN 01 & 10) AUSC3SPACE}"; 

235 PRINT S$i "CLIG.BLUE,SPACE}£AB£LÜE-£IL 
DERN. £S BLEIBEN DIE SM- "; 

240 PRINT S$:“CLIG.BLUE,SPACE}RISSE DER £1 
GUREN UND DIE ACHRIFTC4SPACE}"; 

245 PRINT S$;"CLIG.BLUE,SPACE}ERHALTEN. RA 
S ENTSTEHENDE ,5.1 LD STEHT "; 

250 PRINT S$;"CLIG.BLUE,SPACE}AB $2000 (=8 
192) IM SPEICHER UNDC5SPACE}“; 

255 PRINT S$;"CLIG.BLUE,SPACE}KANN DORT MI 
T EINEM SEICHENPROGRAMMC2SPACE}”; 

260 PRINT S$;"CLIG.BLUE,SPACE}<Z.£.: äl-SE 
£L> VERAENDERT BZW. AUS- “i 
265 PRINT S$;"CLIG.BLUE,SPACE}GEDRUCKT WER 
DEN.C21SPACE}“; 

270 PRINT S$; "CLEFT}'3"L$"W"; 

275 PRINT"^CRVSON,LIG.RED. 14SPACE}£ AS1 
£C15SPACE,RVOFF.YELLOW}S2";L$; 

280 POKE 2023,125-POKE 56295,7 
285 POKE 2024,0:POKE 198.0 
290 POKE X+B.10 

295 B=B+Y:IF B=26 OR B=12 THEN Y=-Y 

300 POKE X+B.l 

305 FOR T=1 TO 50:NEXT 


<091 > 
<097> 
<087> 
<236> 

<045> 

< 010 > 

<249> 

<089> 

<250> 

<242> 

< 212 > 

<038> 

< 120 > 

< 193> 
<235> 
<064> 
<175> 
<078> 
<187> 
<179> 
<068> 
<123> 
<031> 
<091 > 


310 IF PEEK(198)=0 THEN 290 <111> 

315 REM-NUMMER- <224> 

320 PRINT"CCLR,DOWN,SPACE,YELLOW}£ITTE DIE 

SUMMER DES SILDES EINGEBEN," <056> 

325 PRINT"CDOWN,SPACE}DAS ’ENTSTREIFT’ WER 

DEN SOLL.(1-10)":POKE 198,0 <125> 

330 INPUT"C2DOWN,SPACE}";A <012> 

335 IF A<1 OR A> 10 THEN 320 <075> 

340 FI$="CCRT"+CHR$(47+A)+"*" <248> 

345 PRINT"CHOME,LIG.GREEN,9DOWN.SPACE5SOLL 

DAS ÄILD GLEICH ABGESPEICHERT" <116> 

350 INPUT"CDOWN,SPACEOWERDEN CJ/NI ";A$ <101> 

355 IF A$="J" OR A$="S" THEN POKE 2024,1:G 

OTO 370 <253> 

360 IF A$<>"N" AND A$<>"S" THEN 345 <152> 

365 GOTO 380 <183> 

370 PRINT"C2DOWN.GREY 3,SPACE}ÜNTER WELCHE 

M SAMEN SOLL DAS NEUE £ILE" <178> 

375 INPUT"CDOWN,SPACE}ABGESAVED WERDEN ";N 

F$ <197> 

380 REM-LADEN- <011> 

385 PRINT"CCLR,2DOWN,WHITE,SPACE1SITTE DIE 

SISKETTE MIT SAEES5SE-SILDERN"; <135> 

390 PRINT "CDOWN, SP ACEOEINLEGEN UND .b.e.t.u.b.n. 

DRUECKEN!" <235> 

395 POKE 198,0 <049> 

400 GET A$:IF A$<> CHR$(13)THEN 400 <020> 

405 RETURN <209> 
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Listing 1. Das Basic-Programm zum Garfield-Tool. 
Bitte mit dem Checksummer eingeben. 


<019> 

<188> 


<097> 

<242> 

< 211 > 

<018> 

<080> 

< 019 > 

<223> 

<246> 

<013> 

<137> 
<063> 
<194> 
<009> 
<114> 
<227> 
<157> 
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20 
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dO 
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aO 

00 

a9 

03 

91 
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88 

dO 
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fb 

e6 

fb 

c6 

b6 

10 
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aO 
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e7 

a9 

03 

91 

fa 

88 

cO 

ff 

d6 
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dO 
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a9 

If 

85 

b6 

a9 

00 

08 
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85 

fa 

a9 

80 

85 

fb 

a9 

00 

9c 
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85 

fc 

a9 

20 

85 

fd 

aO 

OO 
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bl 

fa 

85 

f 9 

20 

aO 

cO 

a5 

74 
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02 

91 

fc 

88 
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e6 

fb 

ab 
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e6 

fd 
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aO 

00 
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00 

9e 

99 
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88 

dO 
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18 

ad 

20 

dO 

69 

04 

8d 
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a2 

e4 
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dO 

fd 

ad 
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ef 

fO 

03 

4c 

71 
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cO 

58 

a9 

15 

8d 

18 

dO 

a9 
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lb 

8d 

11 

dO 

20 

44 

©5 

a9 
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Oe 

8d 

20 

dO 

20 

bb 

cO 

60 

33 


cOaO : 

a2 

00 

86 

02 

a2 

03 

a5 

f 9 

fl 


c0a8 : 

3d 

d8 

oO 

dd 

d8 

oO 

dO 

07 

22 


oObO : 

a5 

02 

ld 

d8 

cO 

85 

02 

ca 

8f 

Listing 2. 
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10 
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e8 

07 

dO 

01 

18 
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60 

20 

d4 

el 

a9 

00 

85 

cl 

d6 

»Stripe-Killer« 
bitte mit dem MSE 

cOcö :* 
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a9 

a9 
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3f 

85 

85 

o2 

af 

a9 

20 

41 

ed 
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f 5 

ae 

60 

53 

7a 
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oO 
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Oc 

03 

80 

25 

80 

25 

91 

eingeben 



Bild 1. Diese Grafik wurde direkt mit dem Programm 
»Create with Garfield« ausgedruckt 


Bild 2. So sieht der Hi-Eddi-Ausdruck nach der 
Umwandlung durch Garfield-Tool aus 


152 


SONDERHEFT 17 


033 ? 





































































































C64 


TIPS&TRICKS 


Kartenspiele selbstgemacht 


Spielfelder und Spielkarten für Gesellschafts¬ 
spiele können Sie mit diesem hervorragenden 
Editor selbst erstellen. So lassen sich neue 
Spiele entwerfen oder alte neu ausstatten. Ihrer 
Fantasie sind dabei keine Grenzen gesetzt. 

S ollten Sie zu denjenigen gehören, die sich nicht mit vor¬ 
gefertigter Software oder fertigen Brettspielen zufrie¬ 
dengeben, dann ist unser Listing »Play It« genau das 
Richtige für Sie. Bei einigen bekannten Gesellschaftsspie¬ 
len, wie zum Beispiel Monopoly, hat man des öfteren das 
Problem, daß zu wenig Geldscheine, Ereigniskarten oder 
dergleichen vorhanden sind. Vielleicht möchten Sie auch 
einfach alte oder verlorengegangene Karten ersetzen. Mit 
dem Play-It-Editor ist es möglich, verschiedene Spielkarten 
und sogar ganze Spielfelder selbst zu entwerfen. Auch 
wenn Sie ein völlig eigenes neues Spiel erfinden, können 



.10000 BANK OF MONOPOLY 10000 


Bild 1. Ersatzgeldscheine sind kein Problem 

Sie das Spielfeld sowie alle dazu benötigten Karten mit 
Ihrem eigenen Drucker erstellen. 

Das Programm selbst besteht aus drei Teilen, wovon zwei 
in Maschinensprache mit dem MSE eingegeben werden 
müssen. Der erste Teil ist das Basic-Programm »Play It« 
(Listing 1). Nachdem Sie es gestartet haben, lädt es die bei¬ 
den Maschinenprogramme »PI.CODE (4 SPACE) .C« 
(Listing 2) und »PI.CHARS [3 SPACE] .Z« (Listing 3) von Dis¬ 
kette nach. Es versteht sich von selbst, daß dazu alle Pro¬ 
gramme auf einer Diskette gespeichert sein müssen. Wenn 
alles vollständig geladen wurde, erscheint das Hauptmenü, 
von dem aus man die einzelnen Editoren anwählen kann. 
Der Card-Editor 

Mit Anwahl des ersten Menüpunktes gelangt man dabei 
in den Karten-Editor. Er ermöglicht den Entwurf von eige¬ 
nen Spielkarten (Bild 1 bis 3). Wenn Sie schon ein komplet¬ 
tes Set von Karten auf Diskette besitzen, können Sie dies 
zu Beginn auch direkt laden. Ansonsten beantworten Sie 
die erste Abfrage mit »Nein« und gelangen dann in den 
Editor, in dem folgende Kommandos gelten. Aufgerufen 
wird die Kommandoebene mit der Fl-Taste: 


Cursor 
auf-/abwärts 
Cursor 
links/rechts 
C (Copy) 


D (Disk) 


Eine Karte zurück 
Eine Karte vorwärts 

Geben Sie Ausgangs- und Zielkarte ein, 
und es wird eine Kopie der entsprechen¬ 
den Karte erstellt. 

Geben Sie <1 > ein für das Directory und 
<2> für Disketten-Kommandos 


EREIGNISKARTE 


GEHE IN DAS GEFÄNGNIS. 
BEGIB DICH DIREKT DORTHIN. 
GEHE NICHT ÜBER LOS. 


ZIEHE NICHT DU 4-808 EIN. 


Bild 2. Sonderkarten wie zum Beispiel diese Ereigniskarte 
erstellt man ganz nach Belieben 


G (Goto) 

K (Kill) 

L (Load) 
N (New) 

P (Print) 


S (Save) 
X (Exit) 
Z 


Eine bestimmte Karte zum Bearbeiten 
anspringen 

Löschen der momentan gezeigten Karte 
Laden eines neuen Kartensatzes 
Eingabe neuer Werte für Breite und 
Höhe. Alle Karten werden gelöscht. 

Bei Eingabe von <1 > wird eine spezielle 
Karte in einer zu bestimmenden Anzahl 
gedruckt. Bei <2> wird ab einer 
bestimmten Karte bis zu einer anderen je 
ein Exemplar gedruckt. 

Gespeichert wird von der ersten bis zur 
letzten beschriebenen Karte 
Rückkehr zum Hauptmenü ohne Lö¬ 
schen der Karten 

Umschalten zwischen dem ersten und 
zweiten Zeichensatz 


SCHLOSSALLEE 


WERT ..DM 3000 

MIETE.DM 100O 

+ 1 HRUS...DM 4-000 
+2 HMUSER.DM 12000 


+ : 
+ 4 
+ 1 


fflBlil:_ 

IOTEL..DM 40008 


KOSTEN 



1 HAUS . . 

. .DM 

4000 

1 HOTEL. 

. .DM 

4000 

HYPOTHEKENWERT: 

DM 

4000 


^_ 




Bild 3. 
Das komplette 
Spiel läßt sich 
neu ausstatten 


Zusätzlich zu diesen speziellen, extra aufzurufenden 
Funktionen kann man im Edit-Modus folgendermaßen die 
Zeichen im Feld setzen: 

Cursor-Tasten Cursor bewegen 
RETURN Der Cursor springt an den Anfang der 
nächsten Zeile 
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HOME Der Cursor springt in die linke obere Bild¬ 

schirmecke 

DEL Zeichen löschen, wie im Basic-Editor 

CTRL C Zentrieren der Zeile, in der der Cursor 

steht 

Der Playfield-Editor 

Der zweite Menüpunkt aus dem Hauptmenü führt in den 
Spielfeld-Editor, mit dem man ganze Spielfelder nachzeich¬ 
nen oder neu erfinden kann (Bild 4). Beim allerersten Aufruf 
wird das Spielfeld gelöscht, später bleibt es erhalten; außer, 
man löscht es mit einem speziellen Befehl. Auch hier gibt 
es wieder eine Kommandoebene, die durch < Fl > aufge¬ 
rufen wird. Darin gelten folgende Befehle, die sich von 
denen des Card-Editors etwas unterscheiden: 

C (Column) Löschen der Spalte, in der der Cursor 
steht 

D (Disk) Siehe Card-Editor 

G (Goto) Sprung zu einer bestimmten Stelle in 

dem 100 mal 100 Zeichen großen Raster 
K (Kill) Löschen der Seite 

L (Load) Laden eines gespeicherten Feldes 

P (Print) Ausdrucken des Feldes 

R (Row) Löschen der Zeile, in der der Cursor steht 

S (Save) Der komplette Plan wird gespeichert 

X (Exit) Siehe Card-Editor 

Z Siehe Card-Editor 

Zum Ausdruck des gesamten Spielplanes muß noch 
gesagt werden, daß das Programm dabei zunächst nach 
der Größe des Ausdrucks fragt. Man kann in zwei verschie¬ 
denen Größen drucken. Danach wird vom Programm nur 
der Teil des Spielfeldes ausgedruckt, in dem auch tatsäch¬ 
lich geschrieben wurde. Je nach Größe wird auf dem 
Drucker dabei ein zentrierter Ausdruck angefertigt, der zwi¬ 
schen einem und sechs Blatt insgesamt schwanken kann. 
Die einzelnen Blätter müssen dann entsprechend zusam¬ 
mengeklebt werden. 

Fürden Edit-Modus gelten, bis auf Delete und Centre, die 
gleichen Funktionen wie auch im Card-Editor. 

Der Char-Editor 

Der Editor ist der gleiche wie beim Card-Editor. Die Funk¬ 
tionen sind analog bis auf die Punkte NEW, PRINT und Zei¬ 
chensatz umschalten. 

Zu Beginn eines Ausdrucks sollte darauf geachtet wer¬ 
den, daß sich der Druckkopf am Anfang des Blattes befin¬ 
det. Das Programm zählt automatisch die Zeilen für einen 
Seitenvorschub oder ähnliches. Das gilt auch für das Aus- 



Bild 4. Ganze Spielfelder lassen sich in zwei Größen aus- 
drucken. Hier eine Verkleinerung. 


drucken von Spielplänen. DieZeichencodes 254, 255 und 
160 sollten nur geändert werden, wenn man sich der Kon¬ 
sequenzen bewußt ist: Die Codes 254 und 255 dienen 
dazu, die Schnittkante für die Karten und den Spielplan zu 
kennzeichnen. 

Der Code 160 stellt die Form des Cursors dar. Die 
RUN/STJP-Taste wurde gesperrt, weil es sehr ärgerlich 
wäre, einen Spielplan durch einen versehentlichen Druck 
auf diese Taste zu verlieren. Das Programm kann zwar 
durch <RUN/STOP-RESTORE> unterbrochen werden, 
doch gerade im Playfield-Editor kann es dabei zu einem 
kompletten Absturz des Systems kommen, da auf das RAM 
unter dem Kernel zugegriffen wird. Der Ausdruck funktio¬ 
niert auf jedem Epson-kompatiblen Drucker, der sich an 
den ESC-P-Standard hält. 

Zum Schluß braucht man nur noch eigene Spielsteine 
und Würfel. Aber auch dafür kann man sich ja noch etwas 
einfallen lassen. 

(Thomas Haukap/jk) 


1000 IF Fl=0 THEN Fl=l:LOAD"PI.CHARSC3SFAC 

E).Z“,8,1 <138> 

1010 IF Fl = 1 THEN Fl=2 = LOAD"PI.CODEC4SPACE 

>.C",8,1 <186> 

1498 : <204> 

1499 : . <205> 

1500 REM *** INIT *** <097> 

1501 : <207> 

1502 : <208> 

1510 POKE 55,255-POKE 56,115:CLR <140> 

1520 POKE 56576,150:POKE 53248+24,223:POKE 

648,116 <160> 

1530 POKE 788,52 <124> 

1540 BA=12*4096=Z=0:Z$=" l":POKE 53280,0:P 
OKE 53281,6:PRINT“CCLR,YELLOW)"+CHR$< 

8) <231> 

1998 : <196> 

1999 : <197> 

2000 REM *** HAUPTPROGRAMM *** <030> 

2001 * • <199> 

2002 : <200> 

2010 Z=0:POKE 830,Z:Z$=" 1" <162> 

2020 PRINT"CCLR.DOWN,BLACK,SPACE>aS33C2SPA 

CE)aC7SPACE)3<3SPACE>3C3SPACE>aC6SPAC 


E>3 Ä Q .G W . Q , 3 < 1 08> 

2030 PRINT 1 ' 3C3SPACE)3 3C6SPACE53 3C2SPACE 
>3C3SPACE>3C6SPACE>3C3SPACE)3C3SPACE> 

S. < 198> 

2040 PRINT" aC3SPACE>3 3C5SPA0E>,äC3SPACE>3 
C2SPACE)3 3C7SPACE>3C3SPACE)3C3SPACE> 

8 . <208> 

2050 Print" aaaac2SPACE>ac5sPACE)aaaasc3SP 

ACE)3<8SPACE>aC3SPACE)3C3SPACE>3 <172> 

2060 PRINT" aC5SPACE)aC5SPACE>a<3SPACE)aC3 

SPACE)3C8SPACE)3C35PACE)3C3SPACE>3 <143 > 

2070 PRINT" aC5SPACE>aC5SPACE)aC3SPACE>aC3 

SPACE>aC8SPACE)3C3SPACE>a <011> 

2080 PRINT" 3C5SPACE)aaaaa 3C3SPACE)3C3SPA 

CE)aC8SPACE>aC3SPACE)3C3SI'ACE)3 <024> 

2090 SYS BA+21,9,9 = PRINT"IDEE BY THOMAS KN 

IEP” <087> 

2100 SYS BA+21,6,12:PRINT"PROGRAMMED AND D 

ESIGNED BY" <247> 

2110 SYS BA+21,12,14:PRINT"THOMAS HAUKAPCY 


Listing 1. Das Basic-Programm »Play-It« 
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ELLOW)“ 

2120 SYS BA+21.8.17:PRINT"1 - CARDS EDITOR 

2130 SYS BA+21.8.18:PRINT"2 - PLAYFIELD ED 
ITOR" 

2140 SYS BA + 21>8,19: PRINT"3 - CHARAKTERSET 
EDITOR" 

2150 SYS BA+21,3i21:PRINT"ENTER CHOISE: " 
2155 SYS BA+21,20.24-PRINT"CBLACK.RVSON)tC 
RVOFF,SPACE)1986 BY T. HAUKAPCYELLOW) 


2160 SYS BA+24,1,17,21,"”,HS,"123"=IF H$=" 
"THEN 2160 

ON VAL< HS)GOSUB 5000,10000,15000 
GOTO 2010 


2170 

2200 

4998 

4999 

5000 

5001 

5002 
5010 
5015 
5020 


5030 

5040 

5050 

5055 

5058 

5060 

5070 

5080 

5090 

5100 

5110 

5111 

5112 

5113 

5114 

5115 
5120 

5130 

5140 

5150 

5160 

5165 

5170 

5175 

5180 

5200 

5210 

5215 

5220 

5225 

5230 

5250 

5260 

5270 

5300 

5310 

5315 

5320 

5325 

5330 

5340 

5500 

5501 

5502 

5503 


REM *** KARTENEDITOR *** 


IF FK=0 THEN GOSUB 5500 
N=0 

PRINT“CHOME,YELLOW)EDIT:C3SPACE)NUMBE 
R ";N+1}"CDEL,5SPACE>ZEICHENSATZ:“ZS“ 
C4SPACE)” 

SYS BA+27.N 

PRINT"CHOME)COMMAND:C2SPACE)C,D,G,K,L 
, N,P,S,X.ZC10SPACE)" 

GET FS•IF F$="“THEN 5050 

IF F$="C'THEN GOSUB 5300 

IF FS-"D"THEN GOSUB 20000 

IF F$="G"THEN GOSUB 5700 

IF F$="K"THEN SYS BA+30.N 

IF F$="L"THEN GOSUB 5800 

IF FS="N"THEN GOSUB 5500 

IF FS="P“THEN GOSUB 5120 

IF F$="S"THEN GOSUB 5900 

IF F$="X"THEN RETURN 

IF F$="Z"THEN GOSUB 10400 

IF F$="CRIGHT)"AND N<MN THEN N=N+1 

IF FS = ”CDOWN)"AND N>0 THEN N=N-1 

GOTO 5020 

PRINT“CHOME)PRINT:C3SPACE)1-EQUALC4SP 
ACE)2~NOT EQUAL'- C6SPACE)" 

SYS BA+24,1,33,0,"“.WS,"12":IF W$=”"T 

HEN RETURN 

IF W$="1"THEN 5200 

PRINT" CHOME)PRINT: C4SPACE)FIRST: C6SPA 
CE)LAST:C11SPACE)" 

SYS BA+24,2,17,0,““,AS,"1234567890":I 
F A$=“"THEN RETURN 
A=VAL(AS):IF A<1 OR A>MN THEN 5160 
SYS BA+24,2,28.0,"",A$,"1234567890":I 
F A$= “ "THEN RETURN 

B=VAL(AS):IF B<A OR B>MN THEN 5170 
GOTO 5250 

PRINT"CHOME)PRINT:C2SPACE)CARD NR:C6S 
PACE)NUMBER:C8SPACE)“ 

SYS BA + 24,2,17,0,"",AS,"1234567890" : I 

F A$=”"THEN RETURN 

A=VAL(AS):IF A<1 OR A>MN THEN 5210 

SYS BA+24 ,2 ,30,0,“",AS."1234567890":I 

F A$=""THEN RETURN 

B=VAL< AS):IF B<1 OR B>100 THEN 5220 

B=B+129 

PRINT"CHOME)PRINT:C3SPACE)0.K.:C23SPA 
CE>" 

SYS BA+24,1,15,0,"Y",WS,"YN":IF W$="Y 

"THEN SYS BA+39, A-l,B-1 

RETURN 

PRINT"CHOME)COPY:C3SPACE)SOURCE:C6SPA 
CE)TARGET:CI0SPACE)" 

SYS BA + 24,2,16,0,“",AS,“1234567890":I 
F A$= "“THEN RETURN 

A=VAL(AS> sIF A<1 OR A>MN+1 THEN 5310 
SYS BA+24,2,29,0,AS,"1234567890":I 
F AS=""THEN RETURN 

B=VAL< AS) '• IF B<1 OR B>MN+1 THEN 5320 

SYS BA+42,A-l,B-1 

RETURN 

PRINT"CCLR,3DOWN)LOAD NEW CARDS:“ 

SYS BA+24,1,16,3.”",AS,"NY":IF A$=""A 

ND FK=1 THEN RETURN 

FK=1 

IF A$="Y"THEN GOSUB 5800:ON ABS(A>1)+ 


<236> 

5504 

<070> 

5505 

<011> 

5510 

<206> 

<204> 

5520 


5530 

<175> 

5540 

5545 

<206> 

<008> 

5550 

<148> 

5560 

<148> 

<149> 

5570 

<253> 

5580 

<151 > 

5590 

<152> 

<080> 

5600 

<142> 

5610 

5700 

< 151 > 
<176> 

5720 

<063> 

5730 

<062> 

5740 

<155> 

5750 

<239> 

5760 

<226> 

5770 

<043> 

5780 

<137> 

5790 

<100> 

<111> 

5800 

<058> 

5810 

<116> 

5820 

<168> 

5830 

<178> 

5840 

<187 > 

5852 

<069> 

585j 


5857 

<200> 

5860 

<080> 

5870 

<187> 

5880 

5890 

<161> 

5900 

5910 

<145> 

5920 

<147> 

5930 

5940 

<179> 

5950 

<108> 

5960 

<008> 

5970 

9998 

<173> 

9999 

10000 

<195> 

10001 

<164> 

10002 

10005 

<109> 

<198> 

10010 

<075> 

10020 

10030 

<001> 

10040 

<027> 

10050 

<248> 

10055 

10060 

<117> 

10070 

10080 

<023> 

< 161 > 

10090 

10100 

<089> 

<057> 

10110 

<134> 

10120 

<062> 

10130 

<206> 

10140 

10200 

<020> 

<108> 

10210 

10220 


1 GOTO 5890,5500 
PRINT"CCLR,DOWN,SPACE: 
OF ROWS AND COLUMNS" 
SYS BA+21,1,10:PRINT"( 
10-37):" 

SYS BA+21,1,12=PRINT"i 
4) 


C3SPACE):" 


MN=99 


Y"THEN 5500 
N=0:POKE 831 
833,MN 


“YN":IF WSO" 


PACE)" 

BA+24,2,17,0,AS,"1234567890":A 
=VAL(AS >:IF A<1 OR A>MN+1 THEN 5720 


C26SPACE)" 

AS;B;C 

POKE 198,0:RE 


TURN 


GET»2,MS 


MN 


XK=ASC<X$+CHR$< 0)> 
YK=ASC(YS+CHR$(0)> 
MN=ASC < MS+CHRS < 0)) 
LOSE 1 


*** SPIELPLANEDITOR *** 


CHENSATZ:"ZS"C4SPACE)" 


,D,G.K,L,P,R,S,X.ZC8SPACE)" 


NS+".P",8,1:GOSUB 5740 


NS+".P“,8:G0SUB 5740 


MALL:C12SPACE)' 


<163> 

<072> 

<162> 

<099> 

<077> 

<157> 

< 120 > 

<164> 
<131 > 
< 019 > 

< 001 > 

<215> 

<128> 

< 016 > 
<045> 

< 190> 

<225> 

< 220 > 

<051> 

<217> 

< 194> 
<177> 
< 121 > 

<044> 

<242> 

<106> 

<195> 

<105> 

<193> 

<077> 

<064> 

<035> 

< 181 > 
<142> 
<019> 
<106> 
<230> 
<208> 
<008> 
<207> 
< 100 > 
<130> 
<227> 
<005> 
<068> 
<069> 
<033> 
<071> 
<072> 
<236> 

< 020 > 

<018> 

<143> 
<070> 
< 101 > 
<156> 
< 122 > 
<251 > 

<163> 

<253> 

<094> 

<089> 

<045> 

<106> 

<006> 

<186> 

<224> 

<103> 
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10230 

IF A$ = " L"THEN SYS BA+18,0 

<028> 

15120 

NC=A:RETURN 

<001> 

10240 

XF A$="S"THEN SYS BA+18,128 

<054> 

15300 

PRINT"CHOMEICOPY:C3SPACEISOURCE:C6SP 


10250 

RETURN 

<148> 


ACEITARGET:C10SPACE5” 

<211? 

10300 

PRINT"CHOMEIENTER X-KOORDINATE:C4SPA 


15310 

SYS BA+24,3,16,0,"",A$,"1234567890“: 



CEDY-KOORDINATE:C3SPACE>" 

< 182> 


A=VAL< A$):IF A<0 OR A>255 THEN 2310 

<108> 

10330 

SYS BA+24,2,20,0,"",X$,"1234567890": 


15320 

SYS BA+24,3,29,0,"",A$,”1234567890": 



X=VAL<X$>:IF X$="“THEN RETURN 

<229> 


B=VAL(A$):IF B<0 OR B>255 THEN 2310 

<199> 

10340 

SYS BA+24,2,37,0,Y$,"1234567890": 


15330 

SYS BA+57,B,A 

<159> 


Y=VAL(Y$):IF Y$=“"THEN RETURN 

<007> 

15340 

RETURN 

<156> 

10350 

POKE 828.X:POKE 829,Y:RETURN 

<049> 

19998 


<162> 

10400 

Z=128-Z:Z$=STR$(ABS<(Z=128)) + l> =POKE 


19999 


<163> 


830,Z:RETURN 

<140> 

20000 

REM *** DISKETTENVERHALTUNG *** 

<089> 

10500 

PRINT M CHOMEIENTER NAME:C27SPACE>" 

<170> 

20001 


<165> 

10510 

SYS BA+24,8,12.0,”".N$,"ABCDEFGHIJKL 


20002 


<166> 


MNOPQRSTUVWXYZ 1234567890-.C«3@" 

<181 > 

20010 

PRINT"CHOMEIDISK:C5SPACED1-DIRECTORY 


10520 

N$=LEFT$("@:PI.“+N$+“C8SPACE>",13) 

<179> 


C3SPACE52-COMMAND = C4SPACE)* 

<052> 

10530 

RETURN 

<174> 

20020 

SYS BA+24,1,35,0,”",F$:IF F$= ”"THEN 


14998 


<242> 


RETURN 

<127> 

14999 


<243> 

20030 

ON VAL(FS)GOSUB 20100,20200 

<113> 

15000 

REM *** ZEICHENSATZEDITR *** 

<051 > 

20040 

RETURN 

<030> 

15001 


<245> 

20100 

REM DIRECTORY-ANZEIGEN 

<017> 

15002 


<246> 

20105 

PRINT"CCLRI" 

<025> 

15010 

PRINT"CHOMEJEDIT = C7SPACEICHARAKTERC0 


20110 

OPEN 1,8,0,"$":GETöl,A$,A$ 

<156> 


DE:"iNC;"CLEFT.7SPACE5" 

<010> 

20120 

GETttl , A$ ,B$ : IF ST=64 THEN CLOSE l:GO 


15020 

SYS BA+45.NC 

<145> 


TO 20160 

<111> 

15030 

PRINT"CHOMEDCOMMAND:C2SPACEJC,D,G,K, 


20130 

GETH1,A$,B$:PRINT ASC < A$+CHR$(0)> +25 



L,S,XC15SPACE>” 

<060> 


6 *ASC(B$+CHR$(0)): 

<110> 

15040 

GET F$:IF F$=""THEN 15040 

<053> 

20140 

GET81,A$:PRINT A$;:IF A$<>""THEN 201 


15042 

IF F$="CDOWNJ"AND NC>0 THEN NC=NC-1 

<030> 


40 

<101> 

15044 

IF F$ ="CRIGHT>“AND NC<255 THEN NC=NC 


20150 

PRINT-GOTO 20120 

<157> 


+ 1 

<245> 

20160 

POKE 198,0:WAIT 198,255:POKE 198,0:R 


15046 

IF F$=“C"THEN GOSUB 15300 

<104> 


ETURN 

<190> 

15048 

IF F$-"D"THEN GOSUB 20000 

<067> 

20200 

REM DISK-COMMAND SENDEN 

<097> 

15050 

IF F$="G”THEN GOSUB 15100 

<046> 

20210 

PRINT”CHOMEIENTER COMMAND:C24SPACE5" 

<063> 

15055 

IF F$="K"THEN SYS BA+54.NC 

<010> 

20220 

SYS BA+24,23,15,0,'"' , A$ , "ABCDEFGHIJK 


15060 

IF F$="L"THEN GOSUB 10500:SYS BA+51, 



LMNOPQRST UVHXYZ 1234567890:*C]6@-." 

<004> 


N$ +".Z“,8:GOSUB 5740 

<211> 

20230 

IF A$=""THEN RETURN 

<209> 

15070 

IF F$="S"THEN GOSUB 10500:SYS BA+48, 


20240 

OPEN 1,8,15,A$:GOSUB 5750:CLOSE 1:RE 



N$+".Z",8:GOSUB 5740 

<002> 


TURN 

<143> 

15080 

IF F$=”X"THEN RETURN 

<179> 




15090 

GOTO 15010 

<210> 

© 64'er 


15100 

PRINT”CHOMEDGOTO CHARAKTER:C3SPACE5N 






UMBER:C13SPACE3" 

<007> ( 

»nur»»/ 


15110 

SYS BA+24,3,28,0,“",A$," 1 234567890": 






ArVAL(A$)-IF A<0 OR A>255 THEN 15100 

<077> 

Listing 1. »Play-It« (Schluß) 



Name 

Pi 

code 

.c 


cOOO edle 

cl20 

03 

85 

02 

a5 

02 

c9 

64 

bO 

7c 

c250 

a5 

f 7 

18 

69 

64 

85 

f 7 

a5 

c2 











cl28 

07 

ad 

43 

03 

c9 

64 

90 

07 

47 

c258 

f 8 

69 

00 

85 

f 8 

ca 

dO 

ec 

b9 

cOOO 

4c 

3c 

cü 

4c 

ec 

cl 

4c 

10 

52 

cl30 

a9 

00 

48 

a9 

aO 

dO 

05 

a9 

19 

c 260 
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EINGABEHILFE 


Checksummer 
V3 und MSE 

Diese beiden Programme sind unentbehrlich 
beim Abtippen unserer Listings. Sie helfen 
Tippfehler zu vermeiden und sparen eine 
Menge Zeit. 

N obody is perfect. Jeder Computer-Fan, egal ob bluti¬ 
ger Anfänger oder ausgefuchster Profi, macht beim 
Abtippen von Programmen Tippfehler. Diese Fehler 
später zu finden, kann ein langwieriges Unterfangen sein. 

Deshalb haben wir für Sie die Programme »Checksum¬ 
mer V3« und »MSE« (MaschinenSpracheEditor) entwickelt. 
Der Checksummer ist für Basic-Programme und der MSE 
für Maschinensprache-Listings zuständig. 

Der Checksummer 


Zuerst einmal müssen Sie das Checksummer-Programm 
(siehe Listing 1) abtippen. Dabei sollten Sie äußerst sorgfäl¬ 
tig vorgehen, vor allem bei den Zahlen in den DATA-Zeilen 
20 bis 30. Wenn Sie trotzdem noch einen Tippfehler 
gemacht haben, meldet sich das Programm später mit 
einem entsprechenden Hinweis. Wenn Sie fertig sind, spei¬ 
chern Sie das Programm auf Diskette oder Kassette. 
Jetzt geht es los: 

1. Starten Sie den Checksummer durch die Eingabe von 
»RUN« und das Drücken der RETURN-Taste. 

2. Wenn die Meldung »Checksummer aktiviert...« auf dem 
Bildschirm erscheint, haben Sie keinen Tippfehler 
gemacht und der Checksummer ist nun eingeschaltet. 

3. Zum Löschen des Basic-Programms geben Sie bitte 
»NEW« ein. Keine Angst, der Checksummer selbst wird 
dadurch nicht gelöscht. 

4. Nun können wir den Checksummer testen. Geben Sie 
bitte folgende Zeile ein und drücken Sie die RETURN-Taste: 
1 REM 

In der linken oberen Bildschirmecke sehen Sie nun die 
Prüfsumme über der eben eingegebenen Basic-Zeile. Sie 
muß <63> lauten. Dem Checksummer ist es übrigens 
egal, ob Sie »1 REM« oder »1REM« eintippen. Nur innerhalb 
von Anführungszeichen ist die richtige Anzahl an Leerzei¬ 
chen wichtig. Diese Prüfsummen erscheinen (sofern Sie 
den Checksummer eingeschaltet haben) immer dann, wenn 


Sie eine Basic-Zeile eintippen und dann die RETURN-Taste 
drücken. In der 64’er finden Sie die Prüfsummen immer am 
Ende jeder Programmzeile. 

Diese Zahlen dürfen Sie NICHT mit abtippen. Sie die¬ 
nen lediglich zur Kontrolle, ob Sie alles richtig eingege¬ 
ben haben. 

Als Beispiel sehen Sie Bild 1. Am rechten Rand jeder 
Spalte sehen Sie die Prüfsummen in eckigen Klammern. 

Damit sind wir beim zweiten wichtigen Punkt: Sehen Sie 
sich die Zeile 341 von Listing 2 genauer an. Nach dem ersten 
Anführungszeichen nach dem PRINT-Befehl sehen Sie ein 
Zeichen, das Sie auf der Tastatur des C 64 vergeblich 
suchen werden: die geschweifte Klammer {}. Immer, wenn 
Sie in einem unserer Listings diese Klammern sehen, dürfen 
Sie das, was innerhalb der Klammern steht, nicht eintippen. 
Sie müssen die entsprechende Taste drücken. Beispiel: 

10 PRINT "jCLRj" 

bedeutet: Nach dem Anführungszeichen die »Bildschirm-Iö- 
schen«-Taste drücken (< SHIFT CLR/HOME >). In Tabelle 1 
sehen Sie eine Zusammenfassung aller möglichen Steuer¬ 
tasten mit dem entsprechenden Klartext. 

Weiterhin sehen Sie in Listing 2 (MSE) in Zeile 341 ein 
unterstrichenes »O« nach dem »P«. Das bedeutet, daß Sie 
ein »O« zusammen mit der SHIFT-Taste drücken müssen, 
also <SHIFT 0>. Wenn ein Zeichen »überstrichen« ist, 
müssen Sie dieses zusammen mit der CBM-Taste einge¬ 
ben. Die CBM-Taste befindet sich ganz links unten auf der 
Tastatur und hat die Aufschrift »C=«. Auf dem Bildschirm 
sehen Sie die entsprechenden Grafikzeichen (siehe Hand¬ 
buch, Seite 133). 

Der MSE 


Der MSE dient zur Eingabe von Maschinensprache-Pro¬ 
grammen. Als erstes müssen Sie den sogenannten 
»MSE-Lader« (Listing 2) abtippen. Dieser erzeugt erst das 
eigentliche MSE-Programm auf Diskette oder Kassette. 
Wichtig: Vor dem Eintippen des MSE-Laders müssen 
Sie unbedingt ein paar Befehle eingeben (ohne 
Basic-Zeilennummer): POKE 44,32: POKE 8192,0: NEW 

Jetzt können Sie beginnen, das Listing 2 abzutippen. Der 
MSE-Lader erkennt zwar, wenn Sie beim Eintippen der DA¬ 
TA-Zeilen einen Fehler gemacht haben, aber wenn Sie 
ganz sicher gehen möchten, sollten Sieden Checksummer 
vor dem Eintippen aktivieren. Die Prüfsummen für den 
MSE-Lader finden Sie am Ende der jeweiligen Pro¬ 
grammzeilen. 

Wenn Sie das Listing 2 nicht auf einmal abtippen möch¬ 
ten, müssen Sie vor jedem neuen Laden des Programms 
unbedingt die oben genannte POKE-Zeile eingeben! 

Datasetten-Besitzer müssen die »8« am Ende von Zeile 
343 in eine »1« ändern. 


CTRL steht für Control-Taste, so bedeutet (CTRL+AJ, daß Sie die Control- 

[CYAN) 

Control-Taste & 4 


Taste und die Taste »A« drücken müssen. Im folgenden steht: 

[PURPLE) 

Control-Taste & 5 


IDOWNJ 

Taste neben rechtem Shift, Cursor unten 

[GREEN) 

Control-Taste & 6 


IUP) 

Shift-Taste & Taste neben rechtem Shift; Cursor hoch 

[BLUE) 

Control-Taste & 7 


ICLRj 

Shift-Taste & 2. Taste ganz rechts oben 

[YELLOW) 

Control-Taste & 8 


[INST) 

Shift-Taste & Taste ganz rechts oben 

[RVSON) 

Control-Taste & 9 


[HOME) 

2. Taste von ganz rechts oben 

[RVOFFj 

Control-Taste & 0 


[DEL) 

Taste ganz rechts oben 

[ORANGE) 

Commodore-Taste & 1 


[RIGHT) 

Taste ganz rechts unten 

[BROWN) 

Commodore-Taste & 2 


(LEFT) 

Shift-Taste & Taste unten rechts 

(LIG.RED) 

Commodore-Taste & 3 


[SPACE) 

Leertaste 

[GREY 1) 

Commodore-Taste & 4 


[SHFIT-Space) 

Shift-Taste & Leertaste 

(GREY 2) 

Commodore-Taste & 5 


[Fl) bis [F8] 

Funktionstasten 

[LIG.GREEN) 

Commodore-Taste & 6 


[RETURN) 

Shift-Taste & Return 

[LIG.BLUE) 

Commodore-Taste & 7 


[BLACK) 

Control-Taste & 1 

[GREY 3) 

Commodore-Taste & 8 


[WHITE) 

Control-Taste & 2 




[RED) 

Control-Taste & 3 

Tabelle 1. Die Steuerbefehle in den Listings 
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C 64 


Wenn Sie alles richtig gemacht haben und das Pro¬ 
gramm fehlerfrei abgetippt wurde, speichert es sich nach 
dem Starten selbst auf Diskette oder Kassette unter dem 
Namen »MSE VI .0«. Dieses fertige MSE-Programm laden 
Sie dann bei Bedarf wie ein normales Basic-Programm und 
starten es mit »RUN«. 

So arbeitet man mit dem MSE 

Als erstes möchte der MSE den Namen des zu bearbei¬ 
tenden Programms wissen. Dieser steht in der ersten Zeile 
unserer MSE-Listings. Dann müssen Sie die Start- und 
Endadresse des Programms eingeben. Dies sind die letz¬ 
ten beiden, vierstelligen Hexadezimalzahlen in der ersten 
Zeile unserer Listings. 

Wenn Sie ein Programm von Diskette oder Kassette 
laden wollen, um an einer bestimmten Stelle weiterzutip¬ 
pen oder noch eine Korrektur vorzunehmen, geben Sie auf 
die Frage nach der Startadresse ein »L« ein. Danach müs¬ 
sen Sie <D> oder <T> drücken, je nachdem, ob Sie von 
Diskette oder Kassette (»tape«) laden möchten. Wenn das 
Programm unter diesem Namen nicht auf der Diskette vor¬ 
handen ist oder ein sonstiger Ladefehler vorlag. meld$t 
sich der MSE mit »l/O-ERROR«. In so einem Fall drücken 
Sie < RUN/STOP RESTORE> und geben einfach noch 
einmal »RUN« ein. 

Beim Abtippen geben Sie nach und nach die abgedruck¬ 
ten Buchstaben und Zahlen des jeweiligen Listings ohne 
die Freiräume dazwischen ein. Wenn Sie in einer Zeile 
einen Tippfehler gemacht haben, meldet sich der MSE 
sofort mit einem Brummton und der Meldung »EINGABE¬ 
FEHLER«. Nach einem Druck auf die RETURN-Taste kön¬ 
nen Sie mit der DEL-Taste den Fehler korrigieren. Wenn Sie 
das gewünschte Programm vollständig eingegeben 
haben, speichert es der MSE automatisch auf Diskette 
oder Kassette. 

Bei längeren Listings ist es unwahrscheinlich, daß Sie 
das komplette Programm auf einmal eingeben. Sie können 
Ihre bisherige Tipparbeit jederzeit durch <CTRL S> auf 
Diskette oder Kassette speichern und Ihr Werk später fort¬ 


5 PRINT CHRS(14) <242> 
10 PRINT"<CLR>" <254> 
20 PRINT“ q *****************« ’' <130> 
30 PRINT"C4D0WN,2SPACE>XESTCSPACE,BLUE,6SP 

ACE>" <022> 


40 PRINT"1 


< 108> 


© G4'er 

Bild 1. Die Bedeutung der Steuerzeichen 
wird im nachfolgenden Text erklärt 

In Zeile 10 müssen Sie nach den Anführungsstrichen die 
Tasten <SHIFT CLR/HOME> drücken und nicht die 
Klammern mit dem Wort CLR eingeben. In Zeile 20 
drücken Sie nach den Anführungsstrichen die CBM- 
Taste und den Buchstaben <Q>, gefolgt von mehreren 
SHIFT- und Stern-Tasten und zum Schluß die CBM- 
Taste und den Buchstaben <W>. In Zeile 30 ist es vier¬ 
mal die CURSOR-abwärts-Taste, gefolgt von zweimali¬ 
ger Leertaste, dann < SHIFT T> und normal EST, zum 
Schluß noch einmal die Leertaste, die Farbtaste Blau 
<CTRL 7> und sechsmal die Leertaste. Zeile 40 
besteht lediglich aus mehreren Grafikzeichen, die mit 
der CBM-Taste und <B> erzeugt werden. 


setzen. Sie sollten sich dann allerdings im Heft markieren, 
wie weit Sie beim Abtippen gekommen sind! Später geben 
Sie dann nach dem Laden des ersten Programmteils 
< CTRL N > ein und auf die dann folgende Frage nach der 
Startadresse die Zeilennummer (Adresse), bei der Sie auf¬ 
gehört haben zu tippen. 

<CTRL M> erlaubt Ihnen jederzeit, Ihr Werk listen zu 
lassen. Durch < SPACE > können Sie weiterlisten lassen 
und durch <RUN/STOP> das Listen abbrechen. 

We™ Sie einen Drucker besitzen, können Sie das Pro¬ 
gramm auch mit <CTRLP> ausdrucken. Mit <CTRLL> 
wird das Programm noch einmal neu in Ihren C 64 geladen. 

(F. Lonczewski/N. Mann/D. Weineck/tr) 


10 PRINT"CHECKSUMMER FUER C 64" 

11 PRINT:PRINT"EINEN MOMENT, BITTE ..." 

12 FOR 1=828 TO 864:READ A:POKE I,A:PS=PS+ 
A:NEXT I 

13 IF PS05765 THEN PRINT "TIPPFEHLER IN DE 
N ZEILEN 20 BIS 22":END 

14 SYS 828:PS=0:FOR 1=58464 TO 58583:READ 
A:POKE I,A:PS=PS+A:NEXT I 

15 IF PSO16147 THEN PRINT "TIPPFEHLER IN D 
EN ZEILEN 22 BIS 30":END 

16 POKE 1,53:POKE 42289,96:POKE 42290,228 

17 PRINT"CHECKSUMMER AKTIVIERT." 

18 PRINT:PRINT" AUSSCHALTEN : POKE1.55 ODE 
R'SPCC 27>"<RUN/STOP+RESTORE>" 

19 PRINT:PRINT” ANSCHALTEN : POKE1.53" 

20 DATA 169,0,133,254.162.1,189,93,3,133,2 
55,160,0,177,254 

21 DATA 145,254,136,208,249,230,255,165,25 
5,221,95,3,208,238,202 

22 DATA 16,230,96,160,224,192,0,160,2,169, 
0,170,133,254,177 

23 DATA 95,240,40,201,32,208,3,200,208,245 
.133.255,138,41,7 

24 DATA 170.240,14,72,165,255,24,42,105,0, 

202.208.249.133.255 

25 DATA 104,170,232,165,255,24,101,254,133 
,254,76.111,228,192,4 

26 DATA 48,219,198,214,165,214,72,162,3,16 
9,32,157,1,4,189 

27 DATA 212,228.32,210,255,208,12,0,92,72, 
32,201,255.170,104 

28 DATA 144,1,138,96,202,16,228.166,254,16 
9,0,32,205,189,169 

29 DATA 62,32,210,255,104,133,214.32,108.2 

29.169.141.32.210.255 

30 DATA 76,128,164,9,60,18,19 

6 64'er 

Listing 1. Der »Checksummer 64 V3« für Basic-Listings 


100 REM **************************** <091> 

110 REM * * <159> 

120 REM * MSE LADER * <206> 

130 REM * * <179> 

220 REM **************************** <211> 

230 REM <036> 

240 DIM H(75): FOR 1=0 TO 9 <113> 

250 H(48+1> =1: H(85+1)=1+10:NEXT <041> 

260 FOR 1=2048 TO 3755 : READ A* <198> 

270 H=ASC(LEFT*(A*,1)>:L=ASC(RIGHTS(A*,1)> <199> 
280 D=H(H)*16+H(L):S=S+D:POKE I,D <219> 

290 A=A+1:IF A<20 THEN NEXT:A=-1 <141> 

300 PRINT " ZEILE:";1000+Z; <011> 

310 READ V :Z=Z+1:IF V=S THEN 330 <218> 

320 PRINT"PRUEFSUMMENFEHLER !":STOP <138> 

330 IF A<0 THEN 341 <221> 

340 S=0:A=0:PRINT:NEXT <046> 

341 PRINT"<CLR>PA43,1:PA44,8: Pfl45,172: Pß46 

,14 <010> 

342 POKE 631,19:POKE 632,13:POKE 633,13:PO 

KE 198,3 <249> 

343 PRINT"<3D0WN>SAVE"CHR*(34)"MSE V1.0"CH 

R*(34>",8 <171> 

344 END ' <092> 

1000 DATA 00,0B,08,0A,00,9E,32,30,36,31,00 

,00,00,A2,08,A9,36,85,A4,A9, 1247 <119> 

1001 DATA 08,85 , A5, A9,00,85 , A6, A9, B0,85 , A7 

,A0,00,B1,A4,91,A6,C8,D0,F9, 2888 <054> 

1002 DATA E6,A5,E6,A7,CA,D0,F2,A9,36,85,01 

,4C,00,B0,20,D1,B1,A9,06,8D, 2787 <144> 

1003 DATA 21,D0,A9,03,8D,20,D0,8D,86,02,A0 

,B3,A9,74,20,FF,B1,A0,B3,A9, 2667 <237> 

1004 DATA B9,20,FF,Bl,A0,00,20,CF,FF,99,01 

,02,C8,C9,0D,D0,F5,88,F0,D2, 2912 <217> 


Listing 2. Der »MSE« zur Eingabe von Maschinensprache- 
Programmen 


160 
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1005 DATA C0,0F,90,02,A0,0E,8C,00,02,20,EA 

,B1,A0,B3,A9,CF,20,FF,B1,20, 2323 <013> 

1006 DATA 8E,B4,85,FC,85,62,20,8E,B4,85,FB 

,85,61,20,A7,B4,D0,20,A0,B3, 2864 <199> 

1007 DATA A9,E5,20,FF,Bl,20,BE,B4,85,60,20 

,8E,B4,85,5F,20,A7,B4,D0,0A, 2624 <091> 

1008 DATA A5,61, C5,5F, A5,62 , ES ,60,90,06,20 

,43,B3,4C,3A,B0,A9,AA,A0,00, 2379 <167> 

1009 DATA 91,FB,E6,FB,D0,02,E6,FC,20,3F,B2 

190,EF,4C,FB,B4,A2,02,86,58, 3118 <152> 

1010 DATA A9,A6,A0,9D,20,F2,B1,20,E4,FF,F0 

,FB,C9,30,90,0C,C9,47,B0,08, 2970 <231> 

1011 DATA C9,3A,90,0B,C9,41,B0,07,G9,14,D0 

,0F,4C,0B,B1,20,D2,FF,A6,58, 2322 <121> 

1012 DATA 95,F7,C6,58,D0,D2,60,AE,8D,02,F0 

,26,C9,0C,D0,03,4C,0B,B6,C9, 2685 <057> 

1013 DATA 13,D0,03,4C,8B,B5,C9,0D,D0,03,4C 

,BA,B4,C9,10,D0,03,4C,68,B5, 2282 <225> 

1014 DATA C9,0E, D0,06,20,5F ,B4,4C, 64 ,B1,4C 

,92,B0,A5,F9,20,02,B1,0A,0A, 2132 <208> 

1015 DATA 0A,0A,85,F9,A5,F8,20,02,B1,05,F9 

,60,C9,3A,90,02,69,08,29,0F, 1950 <092> 

1016 DATA 60,A6,59,E0,08,90,1F,A6,58,E0,02 

,B0,06,20,D2,FF,4C,8E,B0,C6, 2509 <188> 

1017 DATA 59, A0,14, A9,92,20, F2 , B1 , CA , D0, FA 

,84,57,68,68,4C,8B,B1,A6,D3, 2891 <197> 

1018 DATA E0,08,B0,03,4C,92,B0,20,D2,FF,A6 

,58,E0,02,90,09,C6,59,20,D2, 2468 <049> 

1019 DATA FF,C6,S8,D0,F9,4C,8E,B0,48,4A,4A 

,4A,4A,20,59,B1,68,29,0F,C9, 2419 <035> 

1020 DATA 0A,90,02,69,06,69,30,4C,D2,FF,A2 

,FC,9A,20,D1,B1,20,48,B2,20, 2261 <073> 

1021 DATA EA,B1,20,9F,B2,A5,FC,20,4E,B1,A5 

,FB,20,4E,B1,20,ED,Bl,A9,3A, 2860 <148> 

1022 DATA A0,20,20,F2,B1,A9,00,85,59,20,8E 

,B0,20,ED,B1,A4,59,20,EF,B0, 2530 <233> 

1023 DATA 91,FB,C8,84,59,00,08,90,EC,20,10 

,B2,A9,12,20,D2,FF,20,8E,B0, 2657 <105> 

1024 DATA 20,EF,B0,C5,FF,F0,0D,20,43,B3,A9 

,14,A0,14,20,F2,B1,4C,A2,B1, 2665 <034> 

1025 DATA A9,92,20,D2,FF,20,33,B2,20,E0,B2 

,20,3F,B2,90,9F,4C,8B,B5,A9, 2648 <123> 

1026 DATA 93,20,D2,FF,A2,00,A9,03,9D,00,D8 

,9D,00,D9,9D,00,DA,9D,00,DB, 2476 <237> 

1027 DATA E8 , D0 , EF , 60, A9,0D, 2C, A9,20,4C , D2 

,FF,20,D2,FF,98,4C,D2,FF,20, 2965 <160> 

1028 DATA E4,FF,F0,FB,60,84,5D,85,5C,A0,00 

,Bl,5C,F0,06,20,D2,FF,C8,D0, 3100 <077> 

1029 DATA F6,60,A5,FB,85,5A,A0,00,84,5B,Bl 

,FB,18,65,5A,85,5A,90,02,E6, 2606 <156> 

1030 DATA 5B,06,5A,26,5B,C8,C0,08,90,EC,A5 

,5A,65,5B,85,FF,60,18,A5,FB, 2467 <219> 

1031 DATA 69,08,85,FB,90,02,E6,FC,60,A5,FB 

,C5,5F,A5,FC,E5,60,60,A0,B3, 3106 <1B3> 

1032 DATA A9,FB,20,FF,B1,A0,01,B9,00,02,20 

,D2,FF,CC,00,02,C8,90,F4,A9, 2692 <098> 

1033 DATA 10,ED,00,02,AA,20,ED,Bl,CA,D0,FA 

,A5,62,20,4E,Bl,A5,61,20,4E, 2453 <236> 

1034 DATA Bl ,20,ED,Bl ,A5,60,20,4E,B1 ,A5,5F 

,20,4E,B1,A9,9F,20,D2,FF,20, 2575 <038> 

1035 DATA EA,B1,24,5E,10,01,60,A9,12,20,D2 

,FF,A2,28,20,ED,B1,CA,D0,FA, 2646 <161> 

1036 DATA A9,92,4C,D2,FF,A5,D6,C9,16,B0,01 

,60,A9,A0,85,A4,A9,78,85,A6, 2945 <204> 

1037 DATA A9,04,85,A5,85,A7,A2,13,A0,27,B1 

,A4,91,A6,B8,10,F9,CA,F0,19, 2671 <208> 

1038 DATA 18, A5, A4,69,28,85 , A4,90,02 , E6 , A5 

,18,A5,A6,69,28,85,A6,90,E0, 2503 <251> 

1039 DATA E6,A7,4C,B6,B2,A9,91,4C,D2,FF,A9 

,0F,8D,18,D4,A9,00,8D,05,D4, 2776 <000> 

1040 DATA A9,F7,8D,06,D4,A9,11,8D,04,D4,A9 

,32,8D,01,D4,A9,00,8D,00,D4, 2413 <126> 

1041 DATA A0,80,20,09,B3,A9, 10,8D,04,D4,60 

,A2,FF,CA,D0,FD,88,D0,F8,60, 2914 <240> 

1042 DATA A9,0F,8D,1B,D4,A9,2D,8D,05,D4,A9 

,A5,8D,06,D4,A9,21,8D,04,D4, 2385 <119> 

1043 DATA A9,07,8D,01,D4,A9,05,8D,00,D4,A0 

,FF,20,09,B3,A9,20,8D,04,D4, 2250 <078> 

1044 DATA A9,00,8D,01,D4,BD,00,D4,60,38,20 

,F0,FF,8A,48,98,48,18,A0,06, 2179 <175> 

1045 DATA A2,18,20, F0, FF , A0 , B4 , A9,0A, 20, FF 

,B1,20,12,B3,20,E4,FF,F0,FB, 2931 <093> 

1046 DATA A2,1D,A9,14,20,D2,FF,CA,D0,FA,68 

,A8,68,AA,1B,4C,F0,FF,0D,0D, 2704 <088> 


1047 DATA 0D,20,20,20,20,20,20,20,4D,41,53 

,43,48,49,4E,45,4E,53,50,52, 1144 <216> 

1048 DATA 41,43,48,45,20,2D,20,45,44,49,54 

,4F,52,20,0D,00,20,20,20,20, 1023 <03B> 

1049 DATA 20,20,20,20,56,4F,4E,20,4E,2E,4D 

,41,4E,4E,20,26,20,44,2E,57, 1128 <206> 

1050 DATA 45,49,4E,45,43,4B,00,0D,0D,0D,20 

,20,20,50,52,4F,47,52,41,4D, 1102 <117> 

1051 DATA 4D,4E,41,4D,45,20,3A,20,00,0D,0D 

,20,20,20,53,54,41,52,54,41, 1073 <095> 

1052 DATA 44,52,45,53,53,45,20,3A,20,24,00 

,0D,0D,20,20,20,45,4E,44,41, 1014 <129> 

1053 DATA 44,52,45,53,53,45,20,20,20,3A,20 

,24,00,92,05,20,50,52,4F,47, 1171 <217> 

1054 DATA 52,41,4D,4D,20,3A,20,00,12,20,20 

,2A,2A,2A,20,46,41,40,53,43, 1024 <027> 

1055 DATA 48,45,20,45,49,4E,47,41,42,45,20 

,2A,2A,2A,20,20,92,00,0D,0D, 1058 <098> 

1056 DATA 2A,2A,2A,20,45,4E,44,45,20,2A,2A 

,2A,00,13,05,20,20,12,44,92, 920 <14B> 

1057 DATA 49,53,4B,20,4F, 44,45,52,20, 12,54 

,92,41,50,45,0D,00,13,20,20, 1151 <035> 

1058 DATA 49,2F,4F,20,2D,20,46,45,48,4C,45 

,52,00,20,D1,B1,20,48,B2,A0, 1606 <012> 

1059 DATA B3,A9,CF,20,FF,B1,20,8E,B4,85,FC 

,20,8E,B4,85,FB,C5,61,A5,FC, 3207 <251> 

1060 DATA E5,62,90,23,A5,FB,C5,5F,A5,FC,E5 

,60,B0,19,20,A7,B4,D0,14,60, 2860 <112> 

1061 DATA 20, A7 , B4 , F0,0C, 85 , F9,20, A7 , B4 , F0 

,05,85,FB,4C,EF,B0,68,68,20, 2749 <088> 

1062 DATA 43,B3,4C,5F,B4,20,CF,FF,C9,4C,D0 

,09,20,D1,B1,20,48,B2,4C,0B, 2372 <046> 

1063 DATA B6,C9,0D,60,A9,00,85,5E,20,5F,B4 

,20,EA,Bl,20,0D,B5,24,5E,30, 2042 <120> 

1064 DATA 05,20,E4,FF,F0,FB,20,E1,FF,F0,26 

,20,9F,B2,24,5E,10,09,20,4E, 2435 <198> 

1065 DATA B5,20,0D,B5,20,60,B5,20,33,B2,20 

,3F,B2,90,D7,A0,B4,A9,28,20, 2190 <207> 

1066 DATA FF,B1 ,20,E4,FF,C9,0D,D0,F9,A9,00 

,B5,5E,A5,61,B5,FB,A5,62,85, 3056 <240> 

106T DATA FC,20,E0,B2,4C,64,Bl,A5,FC,20,4E 

■,ßl , A5,FB,85,FF,20,4E,B1 , A9, 3003 <221> 

1068 DATA 20 , A0,3A, 20 , F2 , B1, A0,00,20 , ED, B1 

,Bl,FB,20,4E,Bl,CB,00,08,90, 2566 <070> 

1069 DATA F3,20,ED,Bl,24,5E,30,03,A9,12,2C 

,A9,20,20,D2,FF,20,10,B2,A5, 2190 <059> 

1070 DATA FF,20,4E,Bl,A9,92,20,D2,FF,4C,EA 

,Bl,A9,FF,85,B8,85,B9,A9,04, 3073 <029> 

1071 DATA 85,BA,20,C0,FF,A2,FF,4C,C9,FF,20 

,CC,FF,A9,FF,4C,C3,FF,20,5F, 3315 <189> 

1072 DATA B4, A9,80,85,5E , 20,4E , B5,20,48 , B2 

,A2,24,A9,2D,20,D2,FF,CA,D0, 2596 <111> 

1073 DATA FA , 20 , EA , B1 , 20 , EA, B1,20,60 , B5,4C 

,CI,B4,20,B8,B5,A6,5F,A4,60, 2812 <015> 

1074 DATA A9,61,20,DB,FF,B0,0A,20,B7,FF,29 

,BF,D0,03,4C,FB,B4,A9,01,20, 2577 <201> 

1075 DATA C3,FF,20,68,B6,A0,B4,A9,4F,20,FF 

,Bl,20,F9,B1,4C,FB,B4,20,68, 2921 <237> 

1076 DATA B6,A9,37,A0,B4,20,FF,B1,20,F9,B1 

,A2,08,C9,44,F0,06,A2,01,C9, 2717 <213> 

1077 DATA 54,D0,,F 1,A9,01 ,A8,20,BA,FF,A0,00 

,E0,01,F0,1A,A9,40,8D,20,02, 2403 <101> 

1078 DATA A9,3A,8D,21,02,B9,01,02,99,22,02 

,C8,CC,00,02,90,F4,C8,C8,D0, 2182 <127> 

1079 DATA 0C,B9,01 ,02,99,20,02,C8,CC,00,02 

,D0,F4,98,A2,20,A0,02,4C,BD, 2018 <025> 

1080 DATA FF,20,B8,B5,A5,BA,09,08,90,33,A6 

,B9,86,57,A9,01,20,C3,FF,A9, 2800 <022> 

1081 DATA 60,85, B9,20 , C0 , FF , B0,2B, A5, BA , 20 

,B4,FF,A5,B9,20,96,FF,20,A5, 2911 <053> 

1082 DATA FF,85,61,A5,90,4A,4A,B0,13,20,A5 

,FF,85,62,20,AB,FF,A5,57,85, 2663 <214> 

1083 DATA B9, A9,00,20, D5 , FF , 90,03,4C , A3 , B5 

,S6,5F,84,60,A5,BA,C9,01,D0, 2639 <131> 

1084 DATA 0A , AD , 3D , 03,85,61, AD , 3E , 03,85,62 

,4C,FB,B4,A9,13,20,D2,FF,A2, 2300 <120> 

1085 DATA IC,20,ED,Bl,CA,D0,FA,60, 1230 <214> 

© 64'e»- 


Listing 2. Der »MSE« zur Eingabe von Maschinensprache- 
Programmen (Schluß) 
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